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FLASH! 

Gets the Gold 
at the Computer Olympics 



"\j/ 



The Skyles Electric Works 7547 
FLASH! dashed off with the gold at 
the Computer Olympics here. 

The 7547 FLASH! loaded and saved 
programs and files three times faster 

than an unenh anced Commodore 

" factor than 1541 disk drive could. 
...iciaiei man Faster than any other 
any Other disk disk drive with com- 
ririvo " patible disk format. 

Olive... Three times faster! 

The device delighted the home 
crowd, which watched the 7547 
FLASH! set a meet record, and leave 
its competition in the dust. 

Once installed, the 7547 FLASH! is 
transparent. Computer operations 
all remain unaffected as it speeds up 
every disk-related function. The 
FLASH! is a permanent installation 
with both a software (ROM) and a 
hardware component. Through key- 
board commands or a hardware 
switch, you can even return to the 
old, slow loading method — if you 
really want to. 

And there is nothing new to learn 
for the FLASH! No special tricks or 



techniques. Once it's in, just watch 
it go. 

But if you're really serious about 
programming, the 7547 FLASH! is a 
gold mine. The manual will show you 
how to write software allowing data 
transfer toand from the 1541 disk 
drive at speeds up to 10 times the 
normal. 

For programs that usually load 
with a " '*',8,1 " command, just hit 
Shift/Run-Stop. A spreadsheet pro- 
gram like BUSICALC 3 then loads 
in about 25 seconds. 

The 7547 FLASH! even adds 21 ex- 
tra commands for the Commodore 
64 user. Some of these include edit- 
ing, programming and loading com- 
mands, as well as "DOS Wedge" 
commands. You can ignore all these 
commands, though, and just enjoy 
the rapid disk operations. 

It wowed the crowd at the Com- 
puter Olympics. Once you see its 
sheer speed, you'll know why. Call 
its coach, Skyles Electric Works, to 
place your order or to get more info. 



1541 FLASH!, an add-on assembly, forthe Commodore 64/1541 costs only $89.95. 



i Skyles Electric Works 
23 IE South Whisman Road 
Mountain View, CA 94041 
(415)965-1735 



Available from your local 
Commodore 64 dealer or 
call 1-800-227-9998. 

7547 FLASH! is a trademark of Skyles Electric Works. 
Commodore 64 is a trademark of Commodore. 
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Expand your Atari® or Commodore® 
computer with Digital Devices 
U • PRINT. We make it simple to add 
any printer you choose. U • PRINT 
interfaces feature industry standard 
Centronics parallel connectors to hook 
up an Epson, Star, NEC, C.ltoh, 
Okidata, or any other printer. 
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• EXTRA SERIAL PORT FOR DAISY 
CHAINING OTHER PERIPHERALS. 

• COMPATIBLE WITH ALL ATARI 
HARDWARE AND SOFTWARE. 

U* PRINT MODEL A 

• EMULATION OF COMMODORE 
PRINTERS, INCLUDING GRAPHICS. 

• COMPATIBLE WITH ALL 
COMMODORE HARDWARE AND 
SOFTWARE. 

U* PRINT MODEL C 



Compact, easy to install, and 
costing only $89.95, U-PRINT gives 
you a choice! 



PRINTER 



BUFFER 



Ever get stuck while your printer 
catches up? The PRINTER BUFFER 
eliminates waiting by rapidly accepting 
data in memory, then relaying it at the 
printer's rate, freeing the computer for 
your next job. User-upgradable memory 
(16k to 64k) allows up to 32 pages of 
data to be stored. 




Compatible with U-PRINT and 
other industry-standard hardware, the 
PRINTER BUFFER is the low-cost way 
to make your computer even more 
productive! 



Quality Products Made In USA From 

DIGITAL DEVICES §> 

Corporation 

430 Tenth Street, Suite N205 Atlanta, Georgia 30318 
In Georgia (404) 872-4430; Outside Georgia (800) 554-4898 



©1984 



* ATARI AND COMMODORE ARE REGISTERED TRADEMARKS OF ATARI, INC AND COMMODORE ELECTRONICS LTD. RESPECTIVELY. 
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The ANALOG Compendium is available at selected book and computer stores, or you can order it direct Send 
a check or money order for $14.95 * $2 shipping and handling to: ANALOG Compendium, P. O. Box 615, Holmes, 

Or you can order by phone with MasterCard or VISA Call toll free: 1-800-345-8112 (in PA, call 
1-800-662-2444) For orders outside the U.S., add an additional $5 air mail, $2 surface. 
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MasterFORTH 

It's here — the next generation 
of MicroMotion Forth. 



• Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 

• Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 

• Built-in micro-assembler with numeric local labels. 

• Afull screen editor is provided which includes 1 6 x 
64 format, can push & pop more than one line, 
user definable controls, upper/ lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 

• Includes all file primitives described in Kernigan 
and Plauger's Software Tools. 

• The input and output streams are fully redirectable. 

• The editor, assembler and screen copy utilities are 
provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 

• Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 

• The string-handling package is the finest and 
most complete available. 

• A listing of the nucleus is provided as part of the 
documentation. 

• The language implementation exactly matches 
the one described in FORTH TOOLS, by Anderson 
& Tracy. This 200 page tutorial and reference 
manual is included with MasterFORTH. 

• Floating Point & HIRES options available. 

• Available for APPLE ll/ll+/lle & CP/M 2.x users. 

• MasterFORTH -S100. 00. FP& HIRES -340,00 each 

• Publications 

• FORTH TOOLS - S20.00 

• 83 International Standard - S 15.00 

• FORTH-83 Source Listing 6502, 8080, 8086 - 
$20.00 each. 




Contact: 

MicroMotion 

12077 Wilshire Blvd., Ste. 506 

Los Angeles, CA 90025 

(213)821-4340 




Fast Bit Map Plotting. This is the first in a multi-part 
series that will discuss the theory of plotting hi-resolution 
points, lines and other picture elements in the 
Commodore 64 — and provide a collection of assembly 
level subroutines to perform these functions. The 
subroutines, which may be called from BASIC, provide a 
very fast and efficient method of 'unlocking' the hi- 
resolution capabilities of the C64. The second article in 
the series will add the routines necessary to draw lines 
between points. These will allow the C64 programmer to 
generate USR calls that are equivalent to the Applesoft 
HPLOT routines, and will let the C64 user convert pro- 
grams written for the Apple, such as 'Plotting Binary 
Trees' in this issue, to the C64. 

Plotting Binary Trees — Binary trees are a form of 
mathematical graph that display interesting properties. 
The short program provided calculates all of the informa- 
tion required to plot these binary trees on a micro- 
computer display. The user may specify the parameters 
that govern the 'growth' of the tree and observe the results 
in a very graphic fashion. While the plotting portion of the 
program is specific to Applesoft, relying on the HPLOT 
function, it should be convertable to almost any other 
micro. 

Database Management Systems. Approximately 
42% of the MICRO readers reported that they use their 
systems for database management. This article explores 
the significant features of database managers (DBMs) and 
can be used as a guide to selecting the appropriate package 
for your applications on your computer. Part 1 of the two 
part article looks at the DBM features in general and is 
applicable to all microcomputers. Part 2, scheduled to 
appear in next month's issue, applies the concepts 
developed in Part 1 to evaluate a large number of the 
DBMs available for the Commodore 64. 

BASIC /ML Data Transfer. Many computer problems 
are best solved by combining the ease of BASIC with the 
speed of machine language programming. Unfortunately, 
BASIC is not as supportive of ML data as it might be. Sure, 
you can PEEK and POKE all day, but then you are apt to 
lose all of the efficiency and speed you set out to achieve. 
Four techniques are presented to permit BASIC and ML 
data to work together. 

A Very Moving Message. Sometimes an effect that 
looks simple can actually be the result of very complex 
operations. This article includes a program that allows a 
message to be scrolled across the screen of the 
Commodore 64 while other activities are going on. 
Simple? Not really. As the article shows, it requires a use 
of interrupts, split-screen capability and smooth scrolling 
to make it work. Each of these concepts is explained and 
the resulting demonstration program makes them clear. 
The 'Moving Message' routines can be added to your own 
programs to make them look attractive, professional and 
make them easier to use. 



No. 76 • October 1984 



MICRO 



Publisher/Editor-in-Chief 

Robert M. Tripp 

Associate Publisher 

Cindy Kocher 

Production Manager 

Jennifer Collins 

Technical Editor 

Mark S. Morano 

Technical Editor 

Mike Rowe 

Advertising Manager 

William G. York 

Circulation Manager 

Linda Hensdill 

Office Manager 

Pauline Giard 

Shipping Director 

Marie Ann Wessinger 

Comptroller 

Donna M. Tripp 

Accounting 

Louise Ryan 

Contributing Editors 

Cornells Bongers 

Phil Daley 

David Malmberg 

John Steiner 

Jim Strasma 

Paul Swanson 

Richard C. Vile, Jr. 

Loren Wright 



MICRO is published monthly by: 

MICRO 

P.O. Box 6502 

Chelmsford, MA 01824 

Second Class postage paid at: 

Chelmsford, MA 01824 and additional 
mailing offices. 

USPS Publication Number: 483470. 
ISSN: 0271-9002. 

Send subscriptions, change of address, 
USPS Form 3579, requests for back issues 
and all othe fulfillment questions to: 

MICRO 

P.O.Box 6502 

Chelmsford, MA 01824 
or call 617/256-3649. 



Subscription Rates: (per year): 
U.S. $24.00 or $42.00 for two years 
Foreign surface mail: $27.00 
Air mail: Europe $42.00 
Mexico, Central America, Middle East, 
North Africa, Central Africa $48.00 
South America, South Africa, Far East, 
Australia, New Zealand $72.00 

Copyright © 1984 by MICRO. 
All Rights Reserved. 



/ArCAO 

for the Serious Computerist 

OCTOBER I984 



Plotting Binary Trees 

Luther K. Branting 



Binary Trees are an interesting 
form of mathematical graph. 
Here is a program to generate 
and display them. 



12 



Fast Bit Map Plotting 
for the Commodore 64 

Loren W. Wright 



Part 1 of a series of assembly 
level routines to support fast hi- 
resolution bit map plotting on 
the Commodore 64. 



18 



Machine Language 
Loops 



Chris Williams 



Machine language loops are 
explored — and some common 
misconceptions about them 
exposed. 



20 



Interactive Input 
Utility 

Mike Dougherty 



FORTH screens are presented 
that make your application 
programs easier to use. 



26 



Database 
Management Systems 

Sanjiva K. Nath 



A detailed discussion of the 
important features to look for 
in selecting a database 
management package. 



30 



BASIC/ML Data 
Transfer 

Mark 'Jay' Johanson 



Four techniques are explored 
and implemented to exchange 
data between BASIC and 
machine level programs. 
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Rational Joystick 
Interfacing 

Charles Engelsher 



MICRO 



A "build-it-yourself" project that 
develops an Analog/Digital 
capability for the Apple while 
exploring A/D techniques. 
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68000 p-System 
BASIC 

Paul Lamar & 
Charmaine Lindsay 



An examination of major 
features of p-System BASIC, 
including detailed instructions 
for converting to p-System from 
Microsoft BASIC. 
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Exec File Utilities 

N. D Greene 



A collection of eight useful exec 
utilities for the Apple that make 
life a little easier. 
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Expanding the 
Commodore 1541 Disk 
Drive Part 1 

Michael G. Peltier 



Part 1 of a series showing how 
to expand the capabilities of the 
1541 disk drive used with the 
Commodore 64 and VIC-20. 
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A Very Moving 
Message 



Ian Adam 



Split screen, fine scrolling and 
interrupt techinques are 
combined in a useful utility for 
the Commodore 64. 
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Interface Clinic 
A Mystery ! 

Ralph Tenny 



Problems encountered in using 
a Voltage-to-Frequency 
Converter on a Commodore 64 
are investigated. 
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Quick Cipher Routine 

Art Matheny 



A method and program to 
protect your 'public data' using 
an random number based 
encryption scheme that will 
work on any micro. 
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Autumn is my season for reflection. 

Is it possible that MICRO started publication seven 
years ago and is now starting its eighth year? Have we 
changed much since that first issue in October 1977? Have 
we accomplished our original goals? Wondering, I went 
back to the first issue and reread my editorial. I think that 
you might enjoy reading it too, in its original published 
form. 

Is the 6502 still number one? With the popularity of the 
Apple II, Commodore 64, VIC-20, Atari and other 
6502-based systems, there is probably no argument now, 
but that was not the case back then. Although newer chips 
are making their mark, the 6502 continues to be the 
leader. 

Have we attracted "individuals who are industrious, 
able, cooperative, adventurous and communicative" as 

readers? Examine the results of the June 1984 survey and 

judge for yourself. 

If MICRO is the "most useful journal" for you, then 

"We're Still Number One!" 
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On The Cover 
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When someone mentions 'Data Base Management', most 
of us probably think in terms of business computer- 
oriented materials — mailing lists, inventory control and 
so forth. DBM's can be used for many personal uses as 
well. The cover shows a collection of photographic slides 
that can be encoded and selected via a DBM. Other 
personal examples could include large record and tape 
collections, hobby classification systems and more. 



We ' re Number One I 

An Editorial 

We're number one in microcomputer systems. With over twelve thousand KIM-1 
microcomputers in the filed and a thousand per month being ordered, plus a 
good number of Apple I and Apple II systems, plus a variety of OSI units, 
Plus the Jolts, Data Handlers, and other 6502-based systems, plus the huge 
numbers of PETs and MicroMinds that have been ordered, plus a lot of home- 
brew 6502 systems - it all adds up to a tremendous number of 6502-based 
microcomputer systems in use throughout the world. Adding to this number 
are the one and one-half million 650x chips purchased by Atari for some of 
their games. We've come a long way in the past year. 

We're number one in microprocessor power. Microchess for the KIM-1 took 
1.1K and for the 3080A took about 2.5K. Of thirty-one BASICs tested and 
reported in Kilobaud, the four 6502 versions placed in the top five spots, 
yielding only second place to the Z-80 running at 4 MHz. The 6502 's many 
addressing modes make it very efficient and easy to program. 

We're number one in user participation. Maybe there is some process of 
"natural selection" which attracts individuals who are industrious, able, 
cooperative, adventurous and comrtunicative to the 6502. While users of 
other microprocessor chips have been "spoonfed" via company supported 
user notes and user libraries, the 6502 users have been "doing their own 
thing" as evidenced by the activity level of many local 6502 groups and 
the success of the KIM-l/6502 User Notes. 

We're number one since this is our first issue. We would like to really 
become the most useful journal in the whole microcomputer field, not the 
largest, just the best. We are undertaking the venture with the conviction 
that there is a need for a journal to help bring all of the separate parts 
of the 6502 world together and with the belief that 6502 users will each 
do what they can to support the effort. 
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Moiling Binary Trees 



by Luther K. Branting 
Denver, Colorado 
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A Program to Plot an 
Interesting Class of Graphs: 
Binary Trees 



Trees are a form of graph that play a 
special role in computer science. Most 
artificial intelligence is based upon 
tree-like decision paths and trees are 
used to model such diverse natural 
phenomena as river basins, languages 
and plant growth. Graphs of trees also 
form an endless variety of fascinating 
and beautiful patterns. 

A tree is a graph consisting of a 
vertex called a root and one or more 
line segments branching from the root. 
Additional branchings may occur from 
the end points of each branch. A binary 
tree is a special form of tree in which 
the root has exactly two branches and 
each of the branches, in turn, has 
exactly two more branches. With each 
additional branching, or generation, 
the number of end points doubles. 

Figure 1 shows a two-generation 
binary tree. A and B are the first 
generation branches. C, D, E and F are 
second-generation branches. In this 
tree, each left branch is inclined at an 
identical angle, LA, from the previous 
branch. Similarly, RA is the angle of 
each right branch. All the branches are 
the same length. 



Figure 2 shows the same tree except 
that now each left branch is only .6 
times as long as the previous branch. 




Figure 2 



The ratio of each branch to the previous 
branch is called the growth factor of the 
branch. In general, each tree of this 
type can be specified by giving the left 
and right branch angles, the left and 
right growth factors, the length of the 
first two branches and the number of 
times the branching is to occur. 

The program listed below prompts 
the user for the number of generations 
of the tree, left and right branch angles 
and growth factors and the scale, a 



Root 




Figure 1 



number which is multiplied by the left 
and right growth factors to obtain the 
lengths of the initial left and right 
branches. After the tree is drawn, press- 
ing any key will clear the screen and 
present the user with the options of 
plotting a new tree, sending the tree 
just plotted out to a printer, or quitting. 

As each new generation is drawn, 
the arrays XI (i) and Yl|i] hold the X 
and Y coordinates of the end point of 
the ith branch of the existing tree. A(i] 
holds the angle of the ith branch and 
Lfij holds its length. Similarly, X2, Y2, 
A2 and L2 contain the coordinates, 
angle and length of each new branch 
being drawn. After each generation is 
drawn, the values in X2, Y2, A2 and L2 
are transferred to XI, Yl, Al and LI so 
that the end points of the current 
branches can be used as the starting 
points of the new generation of 
branches. 

When starting out, it is best to use 
growth factors between 1 and 0.5. 
Angles that are the result of dividing 
360 by an integer, like 30, 45, 60 and 72 
degrees, seem to produce the most at- 
tractive trees. There seems to be an 
affinity between angles that are a 
multiple of 30 degrees and the growth 
factors .618 and 1, and between angles 
that are a multiple of 45 degrees and the 
growth factors .707 and 1. In the in- 
terest of speed and simplicity, the 
program does not proportion the tree 
being drawn so that it fits within the 
screen. It is up to the user to select an 
appropriate scale. If the tree is micro- 
scopic, try a larger scale. If the tree 
falls outside qf the screen, the program 
prompts for a smaller scale. 

By plotting a series of trees that vary 
in their angles and growth factors only 
slightly, one can create the illusion of 
flowers opening or crystals growing. 
Some examples of trees are shown 
below. Note that in Figure 3, the end 
points of the tree are converging on a 
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fractal curve similar to the Koch curve 
described in Plotting Fractals on Your 
Computer, Micro No. 70, March 1984. 

The Program 

The calculation portion of this program 
will work in almost any BASIC. The 
plotting assumes the Apple II routines 
to HOME (clear screen and home 
cursor), VTAB and HTAB (to position 
the cursor) and HPLOT (to plot a line 
between two points). If your BASIC 
does not have these routines, you must 
supply them. Commodore 64 owners: 
Loren Wright's Fast Bit Map Plotting, 
appearing in this issue, and Fast Line 
Plotting, appearing in next issue, will 
provide the necessary routines to 
implement the Binary Tree Plotting. 




LEFT ANGLE= 144 
RIGHT ANGLE= 144 
LEFT GROWTH FACTOR= . 
RIGHT GROWTH FACTOR= 
SCALE= 1S5 

Figure 3 



618 
.618 



1 REM *** BINARY TREE PLOTTING PROGRAM 
5 ONERR GOTO 600: 

REM *** IF TREE IS TOO LARGE TO FIT ON THE 

SCREEN, PROMPT FOR A LARGER SCALE 
10 DIM X1(128): DIM Y1(128): DIM X2(128): 

DIM Y2(128) 
20 DIM Al(128): DIM A2(128) : DIM Ll(l28): 

DIM L2(128) 
30 HOME : INPUT "GENERATIONS? (RANGE1-7) ";G 
40 IF G > 7 OR G < 1 THEN GOTO 30 
50 INPUT "LEFT ANGLE? ";LA 
60 INPUT "RIGHT ANGLE? ";RA 

69 REM *** CONVERT FROM DEGREES TO RADIANS 

70 LA = LA * 3-14159266 / 180: 
RA = RA * 3-14159266 / 180 

80 INPUT "LEFT GROWTH FACTOR? ";LGF 

90 INPUT "RIGHT GROWTH FACTOR? ";RGF 
100 INPUT "SCALE? ";SCL 
110 HGR2 : REM *** CLEAR GRAPHICS SCREEN 

119 REM *** INITIALIZE STARTING POINT TO SLIGHTLY 
ABOVE THE CENTER OF THE SCREEN 

120 Y1(0) = 86:X1(0) = 140 
140 L1(0) = SCL:A1(0) = 
150 SIZE = 1 

160 FOR A = 1 TO G 

170 SIZE = SIZE * 2 

171 REM *** SIZE IS THE NUMBER OF END POINTS OF 
THE GENERATION BEING DRAWN 

180 FOR I = TO SIZE / 2 - 1 

185 RI =2*1 :LI =2*1+1 

186 REM *** RI IS THE INDEX OF THE RIGHT BRANCH; 
LI IS THE INDEX OF THE LEFT 

189 REM *** CALCULATE ANGLES OF RIGHT AND LEFT 
BRANCHES 

190 A2(RI) = A1(I) + RA:A2(LI) = Al(l) - LA 

199 REM *** CALCULATE LENGTH OF RIGHT AND LEFT 
BRANCHES 

200 L2(RI) = L1(I) * RGF:L2(LI) = L1(I) * LGF 

209 REM *** CALCULATE X AND Y COORDINATES OF END 
POINT OF RIGHT BRANCH 

210 X2(RI) = X1(I) + SIN (A2(RI)) * L2(RI) 
22$ Y2(RI) = Y1(I) + COS (A2(RI)) * L2(RI) 



229 
230 
239 

240 
250 
259 
260 
270 
279 

280 
290 
300 
310 
320 
329 

330 
340 
350 
360 
365 
370 
375 
380 
390 
399 

400 
410 
420 
430 
440 
450 
460 
470 
600 



REM *** PLOT RIGHT BRANCH 

HPLOT X1(I),Y1(I) TO X2(RI),Y2(RI) 

REM *** CALCULATE X AND Y COORDIATES OF END 

POINT OF LEFT BRANCH 

X2(LI) = X1(I) + SIN (A2(LI)) * L2(LI) 

Y2(LI) = Y1(I) + COS (A2(LI)) * L2(LI) 

REM *** PLOT LEFT BRANCH 

HPLOT X1(I),Y1(I) TO X2(LI),Y2(LI) 

NEXT I 

REM *** SHIFT ARRAY VALUES FOR CALCULATION OF 

NEXT GENERATION 

FOR I = TO SIZE - 1 

X1(I) = X2(I):Y1(I) = Y2(I) 

L1(I) = L2(I):A1(I) = A2(I) 

NEXT I 

NEXT A 

REM *** WAIT FOR A KEY TO BE PRESSED, 

THEN CLEAR SCREEN 

GET A$: TEXT : HOME 

PRINT "INPUT: " 

VTAB 6: HTAB 10: PRINT "Q— TO QUIT" 

VTAB 10: HTAB 10: PRINT "P— TO PRINT TREE" 

VTAB 14: HTAB 10: PRINT "N— FOR NEW TREE" 

GET A$: IF A$ = "P" THEN GOTO 400 

IF A$ = "N" THEN HOME : GOTO 30 

IF A$ < > "Q" THEN GOTO 330 

END 

REM *** PROVIDE APPROPRIATE COMMAND FOR YOUR 

PRINTER 

PR# 1: PRINT CHR$ (9);"G2DL" 

PRINT "LEFT ANGLE= ";LA * 180 / 3-14159266 

PRINT "RIGHT ANGLE= ";RA * 180 / 3-14159266 

PRINT "LEFT GROWTH FACTOR= ";LGF 

PRINT "RIGHT GROWTH FACTOR^ ";RGF 

PRINT "SCALE= ";SCL 

PR# 

HOME : 

TEXT : 

PRINT 

PRINT 



o 



GOTO 340 

HOME : 

"TREE PARTIALLY OFF SCREEN.": 
"TRY AGAIN USING SMALLER SCALE' 1 



o 



o 



o 



o 



o 



o 



o 



o 



o 



o 



GOTO 100 
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H 



H l-H 



LEFT ANGLE= 9a 

RIGHT RNGLE= 90 

LEFT GROWTH FACTOR= . 707 

RIGHT GROWTH FflCTOR= .707 

SCRLE= 9>3 




LEFT RN6LE= 45 
RIGHT flNGLE= 135 
LEFT GROWTH FACTOR= 
RIGHT GROWTH FACTOR= 
SCfiLE= 60 



707 
. 707 




LEFT ANGLE= 7£ 

RIGHT fiN6LE= 72 

LEFT GROWTH FRCTOR= .613 

RIGHT GROWTH FOCTOR= .618 

SCfiLE= 100 




LEFT PNGLE= 7£ 

RIGHT ftNGLE= 36 

LEFT GROWTH FflCTOR= 1 

RIGHT GROWTH FRCTOR= .618 

SCflLE= 30 



O 





LEFT fiNGLE= 120 
RIGHT RNGLE= 1£0 
LEFT GROWTH FfiCTOR= 1 
RIGHT GROWTH FBCTOR= 1 
SCfiLE= 25 



LEFT ONGLE= 90 

RIGHT ONGLE= 30 

LEFT GROWTH FfiCTOR= . 707 

RIGHT GROWTH FOCTOR= 1 

SCRLE= 25 



Additional Examples of Binary Tree Plotting 
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MICRO 







Portrait of a 


Serious Computerist 






Results of the June 


1984 MICRO Survey 


What 


is your age? 




Approximately how much have you spent on your 




33% 


AGE 30-39 




computer hardware so far? 




25 


AGE 40-49 




22% $1000-1999 




20 


AGE 20-29 




19 $2000-2999 




14 


AGE 50-59 




16 $3000-3999 




5 


AGE 60+ 




13 $5000-9999 




4 


AGE -19 




12 $4000-4999 
7 $500-999 


What 


is your 


occupation? 




7 $10,000+ 




19* 


Engineer 




2 -$500 




19 


Other 








17 


Professor/teacher 




Approximately how much do you plan to spend on 




16 


Programmer/Analyst 




your computer hardware in the next year? 




11 


Technician 




34* $500-999 




6 


Student 




27 -$500 




6 


Self Employed 




23 $1000-1999 




3 


Lawyer 




6 $2000-2999 




2 


Doctor 




2 $3000-3999 




1 


Business person 




2 $4000-4999 
2 $5000-9999 


What 


is your 
34* 


formal educational level? 
Bachelor's degree 




2 $10,000+ 




33 


Advanced degree 




What additions have you made to your basic system? 




16 


High school graduate 




82* Disk drives 




14 


Associate degree 




81 Printer 




2 


Fewer than 12 years 




52 Modem 




2 


Para-professional degree 




51 Parallel Interface 
41 RAM cards 


What 


is your 


annual household income before 


taxes 


? 34 Serial interface 




26* 


$30,000-39,999 




19 Z80 card 




24 


$50,000+ 




15 Graphics Tablet 




19 


$40,000-49,999 




4 Hard disk 




17 


$20,000-29,999 




3 68000 card 




11 


Less than $20,000 




2 6809 card 


What 


microcomputer(s) do you use? 




What additional hardware changes or upgrades do you 




43* 


Apple II 




plan to make to your system? 




38 


Other 




26* Disk drives 




37 


Commodore 64 




25 Modem 




14 


Atari 




23 Printer 




11 


VIC 




13 68000 card 




10 


PET/CBM 




13 Hard disk 




8 


OSI 




13 Graphics Tablet 




6 


AIM 




10 RAM cards 




6 


KIM 




7 Z80 card 




5 


Macintosh 




5 Serial interface 




5 


SYM 




4 Parallel interface 




4 


TRS-80 Color Computer 




1 6809 card 




4 


Other 6502 








4 


Other 6809 




Have you ever constructed a computer, computer board, 
or major computer equipment? 


Where 


do you 


use the above computers? 




56* No 




94* 


Home 




41 Yes 




51 


Work 








11 


School 




Have you switched from one computer to another? 




3 


Other 




53* No 










43 Yes 



10 
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Approximately how much have you spent on your 
computer software so far? 
30? $500-999 
28 $200-499 
15 -$200 
14 $1000-1999 
12 $2000+ 

Approximately how much do you expect to spend on 
computer software in the next year? 
39? $200-499 



34 


-$200 


17 


$500-999 


5 


$1000-1999 


3 


$2000+ 


How do you use your computer equipment? 


74* 


Word processing 


66 


Hobby 


57 


Software development 


52 


Entertainment 


49 


Business 


42 


Database management 


40 


Educations 


35 


Telecommunications 


35 


Graphics 


19 


Hardware development 


11 


Other 


What languages do you use? 


96? 


BASIC 


72 


6502 Assembler 


30 


Pascal 


26 


Forth 


16 


Fortran 


15 


Other 


13 


LOGO 


11 


C 


9 


68000 Assembler 


7 


COBOL 


5 


6809 Assembler 


3 


APL 


3 


LISP 



If you write programs, what type of programming do 
you spend most of your time developing? 

42* Software development utilities 
37 Other 

29 Business applications 
7 Games 

How would you rate your present microcomputer 



knowledge : 






Software: 


51? 


Intermediate 


44 


Advanced 


5 


Elementary 




Hardware : 


53? 


Intermediate 


28 


Advanced 


18 


Elementary 


Is MICRO: 




55? 


Just right 


31 


Not technical enough 


4 


Too technical 



A Few Notes 

The 1984 MICRO Survey Form was printed as a self-mailer 
in the June 1984 issue. The results were converted to 
computer-readable form using an Apple II and an Apple 
Graphics Tablet. We have presented here the results that 
we felt would be of interest to our readers. We have sorted 
each question so that the answers are ranked in descending 
order to make the results easier to follow. All figures are a 
percentage of the total responses to each question. Since 
the results are rounded, they may not always equal exactly 
100%. Some may total less than 100% if some readers did 
not answer the question. Other questions, in which 
readers might make several choices, will add up to over 
100%. For example, "What microcomputerfsj do you 
use?" responses total 195%, indicating that MICRO 
readers use, on the average, two (2) microcomputers. 

Some Significant Results 

Some of the results that I find particularly significant in 
characterizing the MICRO reader are: 

age (76% are 30 or older) 

education level |75% have a Bachelor or Advanced 

degree) 
use of microcomputers at work (51 %J as well as at 

home (94%) 
amount invested {48% have spent over $3000) 
programming knowledge (95% rate themselves as 

intermediate or advanced) 
programming languages (72% use 6502 assembler, 

30% Pascal, 26% FORTH) 
hardware skills (41% have built major computer 

projects, 81% rate themselves intermediate or 

advanced) 

This is a pretty heavy group! 

Conclusions 

We are pleased to see that our readership is so qualified, 
that they really are, for the most part, "Serious 
Computerists". For the 55% of you that think MICRO is 
technically "just right", we are glad that you are 
satisified. For the 31% reporting that we are "not 
technical enough", wait until you see what we have in 
store for you in upcoming issues! Some sophisticated 
theory and programs for adding shading to graphics. A 
'build-it-from-scratch' 68000 co-processor to work with 
your Apple or Commodore 64, complete with a 68000 
monitor and a 6502 cross assembler. And, if you are into 
mathematical applications, a very high-level series on fast 
equation solving. And for the 4% who find us "too 
technical", well, there are literally hundreds of other 
computer magazines out there ready to serve your needs. 
MICRO will continue to strive to serve those of you who 
are really serious about microcomputing. 
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Fast Bjt Map PlorriNq 

For tIie CommocIore 64 



Introduction 

The Commodore 64 has a very capable 
system of bit map graphics. In the high- 
resolution mode two or more colors are 
available, and the resolution is 320 dots 
across by 200 vertically. In the 
multicolor mode four or more colors 
are available, with the horizontal 
resolution reduced to 160 dots. 
However, access to bit-map graphics 
from BASIC is poor, requiring a series 
of cryptic POKEs, PEEKs, ANDs, and 
ORs, instead of PLOT, GRAPHICS, and 
COLOR commands. Even worse, 
BASIC is very slow at performing the 
necessary tasks. Clearing the bit map 
(8,000 bytes) takes 30 seconds, and 
even changing one of the plot colors 
takes several seconds. [ presented sim- 
ple machine-language routines for 
these tasks in a Commodore Compass 
article |MICRO 68:43, Jan 1984) and 
these routines have been reassembled 
to work with XYPLOT and BMCALC. 

Another area where a machine- 
language program can make a big dif- 
ference is in the actual plotting of 
points on a bit map screen. In this arti- 
cle I present a routine to calculate the 
appropriate byte in bit-map memory, 
given the x- and y-coordinates of the 
desired point. First, for those who want 
to "load-and-ran," I provide a sample 
driver routine that uses the values of 
the BASIC variables X, Y, and C to 
plot, erase, or toggle points on the 
HiRes bit-map screen. Those who 
would like to see a demonstration of 
some simple machine-language 
arithmetic will want to read the detail- 
ed discussion of the BMCALC routine 
later in this article. 

The calculation routine may also be 
used to convert sprite positions to use a 
sprite as a pointer or pen. Other uses in- 
clude converting sprites or characters 
to bit-map images, and vice versa. 
Routines for these applications may be 
the subjects of future articles. 



by Loren W. Wright 
Dracut, Massachusetts 



The Commodore 64 has great high 
resolution color capabilities built-in. 
Assembly level routines are presented to 
support fast bit map plotting and to provide 
the basis for a hi-res support package. 



The XYPLOT Routine 

XYPLOT works equally well with 
HiRes and multicolor. Once you have 
executed INIT the points will be plot- 
ted automatically in the current mode. 

Using XYPLOT 

Be sure you have XYPLOT properly in- 
stalled, either with a direct memory 
load or with BASIC READ/DATA 
routine. After your bit map mode is in 
effect, you must initialize once with 
SYS 49216. The INIT routine sets up 
the proper data for both the clear 
routines and BMCALC. Then all you 
need to do is set the BASIC variable X 
within the allowable range of to 319 
(or to 159 for multicolor], the variable 
Y between and 199, and variable C to 
0, 1 , or 2 (0, 1 , 2, 3, or 4 for multicolor) . 
Then SYS 49219. That's it! 

HiRes: 

CO plots a point in background color. 
CI plots a point in foreground color. 
C2 toggles the point, i.e., a background 
point becomes a foreground point, and 
vice versa. 



Multicolor: 

CO plots a point in background color 

(53281). 

CI plots a point in Color 1. 

C2 plots a point in Color 2. 

C3 plots a point in Color 3. 

C4 toggles the point: becomes 3, 1 

becomes 2, 2 becomes 1, and 3 

becomes 0. 

Any other value for C causes nothing to 
happen. By the way, this is the same 
plot-type useage as SIMON's BASIC. 

A sample plotting program: 

WW=49152 

SYS WW+64 

FOR X=0 TO 199 

Y=X 

SYS WW+67 

NEXT X 

This makes a straight diagonal line up 
from the lower left corner. The routine 
assumes a lower left orgin. Failure to 
perform INIT, or performing it at the 
wrong time, is the only possibly fatal 
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How it Works 

The routine must perform the follow- 
ing tasks: 

1. Determine the values of BASIC 
variables X, Y, and C. 

2. Invert Y by subtracting it from 199. 

3. Set up BMCALC and execute it. 

4. Read the contents of the calculated 
byte and modify it according to the 
value of C. 

The subroutine VARSET uses three 
C-64 ROM routines to 1) find where 
the value of a variable is stored, 2) load 
it into the floating-point accumulator, 
and 3) convert it into an integer. The 
floating-point variables X, Y, and C are 
set up by storing the ASCII of the 
appropriate letter into $45 and $00 into 
$46. 

Y is inverted by subtracting it from 
199. Since the values of X increase from 
left to right, while the bits increase 
from right to left within a bit-map byte, 
the bit position in HiRes mode is 
calculated by first ANDing with 7, then 
EORing with 7. 

For HiRes mode, a table HRTBL of 
eight bit masks is used to calculate the 
new value to store back into bit-map 
memory. The bit position is used as an 
index into the table. 

Setting a point to foreground color 
means ORing the table value. Setting a 
point to background color means EOR- 
ing the table value with 255 and AND- 
ing the result with the bit-map byte. 
Toggling a point is simply a matter of 
EORing with the table value. 

In multicolor mode, the proper bit 
pair is calculated by ANDing and then 
EORing the X-coordinate with 3. The 
BMCALC routine takes X values in the 
range to 319, so the multicolor X 
value gets temporarily multiplied by 2 
while BMCALC is using it. A table of 
four bit-pair masks is used to save the 
contents of the other three bit pairs in 
the byte. In the toggle mode, another 
table is used to read the current 
contents of the bit pair so that it can be 
inverted 



The BMCALC Routine 

The Problem 

For most plotting on the bit-map 
screen, it is convenient to use it as a big 
sheet of graph paper with x-coordinates 
running from on the left to 319 on the 



right, and y-coordinates running from 
at the bottom to 199 at the top. 
However, bit-map memory is not 
organized that way. Instead, it is 
organized as if the memory were 
character definitions. Each byte codes 
for a row of eight pixels. 



BYTE000 BYTE008 . 


. BYTE312 


BYTE001 BYTE009 . 


. BYTE313 


BYTE002 BYTE010 , 


. BYTE314 


BYTE003 BYTE011 . 


. BYTE315 


BYTE004 BYTE012 . 


. BYTE316 


BYTE005 BYTE013 . 


. BYTE317 


BYTE006 BYTE014 . 


. BYTE318 


BYTE007 BYTE015 . 


. BYTE319 



BYTE320 BYTE328 . . . BYTE632 



Having bit-map memory organized this 
way is convenient for setting colors, 
since screen memory (which normally 
does hold characters] is used for the col- 
ors. It is not very convenient for plot- 
ting points, though. Following are the 
calculations required in BASIC to con- 
vert an x,y point to the appropriate byte 
and bit in HiRes bit-map memory: 

BML0C=start of bit-map memory 
R0W=INT(Y/8) 
C0LUMN=INT(X/8) 
LINE=Y AND 7 
BIT=7-(X AND 7) 
BYTE=BMLOC+ROW*320+ 
C0LUMN*8+LINE 

To set a pixel to the foreground color: 

POKE BYTE, PEEK (BYTE) OR 2fBIT 

To set a pixel to the background color: 

POKE BYTE, PEEK (BYTE) AND 
(255-2fBIT) 

No wonder plotting a point takes so 
long! The machine-language routine 
does exactly the same thing, only much 
faster. In describing the program, I will 
use the same terminology as above. 

ROW and COLUMN describe the 
character position of the point. ROW 
can have values from to 24, and 
COLUMN can have values from to 
39. There are 1000 different row and 
column combinations, just like a 
character screen. As well as helping in 
calculating the value of BYTE, these 
can be used to calculate the appropriate 
bytes in character and color memory 
for setting and changing colors, 

LINE describes the position (0 to 71 
within the "character." For instance, 
byte 322 in the diagram above has a 
LINE value of 2. 



Putting the Address Together 

Each address consists of 16 bits, or two 
8-bit bytes The machine language pro- 
gram puts the address together from 
different sources. 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 

These two bits are determined by the 
bank being used by the 6567 (VIC II). 
The bank is controlled by bits & 1 of 
port A of one of the 6526's (CIA). 
However, these bits are inverted [3 in- 
dicates bank 0, 2 indicates bank 1, 
etc.), so there are two steps involved in 
the calculation: 



1. Invert the two bits. 

2. Get them from positions & 1 to 
positions 14 & 15 of the address, or 
positions 6 & 7 of its high byte. 

15 14 131211 10 9876543210 

This bit is determined by the location 
of the bit map within the bank. If the 
bit map is in the lower 8K of the 16K 
bank, then bit 13 must be 0. If it is in 
the upper 8K, then the bit must be 1. 
Bit 3 of register $18 in the 6567 (ad- 
dress $D018 or 53272] controls this. 

The INIT routine performs the 
calculation of bits 13, 14, & 15. The 
bank and bit-map location are never 
changed in the middle of a plotting ses- 
sion, so some speed can be gained by 
separating these calculations and per- 
forming them once at the beginning. 
INIT must be performed while the bit- 
map screen is in effect, though. Perfor- 
ming INIT while in normal character 
mode will likely result in points getting 
plotted in page 0, the stack, and your 
BASIC program! The result is stored in 
BMLOC, and this value is ORed into 
the high byte BMPTR1 near the end of 
the main calculation routine. In addi- 
tion, INIT calculates the start of screen 
memory and saves it for use by the 
clearing routines. 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 

Calculating these bits occupies most of 
the BMCALC routine. The following 
expression represents what we want to 
end up with in these bits: 

320*ROW + 8 "COLUMN 

Multiplication and division in machine 
language are not the easiest things, but 
it helps when one of the numbers in- 
volved is a power of two. Then all you 
need to do is shift the other number left 
to multiply and right to divide. For in- 
stance, to multiply by 64, just shift the 
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other number six places to the left 
(64=2f6). A 16-bit multiplication works 
automatically, if you shift the low 
byte, immediately followed by shift of 
the high byte. The high byte must be 
shifted using a 'rotate' instruction, so 
that the carry will transfer the bit push- 
ed out of the low byte. 

ASL of low byte: 

C<7<6<5<4<3- 
<2<1<0<0 

ROL of high byte: 

C<7<6<5<4<3- 
<2<1<0<C 

(Carry from low byte) 

You may have noticed that 320 is not a 
power of two. However, it does equal 
256 + 64, so that simplifies things. 

Before we perform the above 
calculation, though, we must have 
values for ROW and COLUMN. ROW 
is INT(YPOS/8) and COLUMN is 
INTfXPOS/8). All we have to do is 
shift each number three bits to the 
right. The INT operation occurs 
automatically when the right three bits 
fall off without being saved! The only 
complication is that XPOS is contained 
in two bytes. By first shifting the 
accumulator, which starts with the 
value of XHI, followed by COLUMN, 
which starts with the value of XPOS, 
that 9th bit is automatically shifted in- 
to the low byte. (This time the rotate 
instruction is used on the low byte, so 
that it will pick up the carry, contain- 
ing the bit pushed from the high byte.] 
For convenience, ROW, which starts 
with the value of YPOS, is shifted at 
the same time. COLUMN and ROW 
end up with the correct values for color 
calculations. 

Ace COLUMN 

(value of XHI) (val of XPOS) 
0000000X XXXXXXXX 

ROW (value of YPOS) 

YYYYYYYY 
Result after 3 shifts: 
Ace (discarded) COLUMN 

00000000 00XXXXXX 
ROW 

000YYYYY 

If we rewrite the expression for 
calculating bits 3-12, it becomes: 

256*R0W + 64*R0W + 8*C0LUMN 



The first and third parts of the calcula- 
tion are trivial. To get 256*ROW, all 
we have to do is add it to the high byte 
(BMPTR+ 1), rather than the low byte 
(BMPTR) of the address. To get 
8*COLUMN take XPOS and remove 
the three low bits. COLUMN was 
calculated by dividing XPOS by 8, so 
the only difference between XPOS and 
8*COLUMN is the three lost bits. 

64*COLUMN is only difficult 
because it involves shifting across two 
bytes. As I explained above, you shift 
the low byte first. The bit pushed off 
the left end goes into the carry. If you 
then perform a rotate on the high byte, 
the carry is shifted into bit of the high 
byte. Six successive shift and rotate 
sequences results in a multiplication 
by 64. 

BMPTR+1 (starts=0) Ace (val of ROW) 

00000000 000YYYYY 

After 6 shift &. rotate sequences: 

BMPTR+1 Accumulator 

00000YYY YY000000 
(Sharp readers may have noticed that I 
could have accomplished the same 
thing with only two shifts in the 
opposite direction, but that's a little 
confusing. 64*ROW256*ROW/4) 

All that's left is putting the pieces 
together. This is accomplished by ad- 
ding up the components. Then BMLOC 
is ORed into BMPTR+1. 

15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 

The final three bits are LINE, the byte 
(0-7) within the "character". This is 
calculated by ANDing 7 with YPOS. 
LINE is ORed into BMPTR. 

Applying BMCALC 

The simplest way to use BMCALC 
from BASIC (without a machine 
language driver such as XYPLOT) is 
outlined below. The bit map should 
already be set up and protected, and 
probably cleared. 

1. Perform INIT with SYS 49216 as 
soon as the bit-map mode is entered, 
but not before. This needs to be done 
only once at the beginning of the pro- 
gram, unless you change banks or bit- 
map locations. 

2. POKE 49168, X AND 255: 

POKE 49169, -(X> 255): 
POKE 49170, Y 

3. SYS 49222 



4. BY=PEEK(25l)+256*PEEK(252) 

5. POKE BY, PEEK (BY) OR 

2t(7-(X AND 7)) 
to plot a foreground point, or 

POKE BY, PEEK (BY) AND 
255-2f(7-(X AND 7)) 

to plot a background point. You can 
save a lot of time with a few 
enhancements to the above: 

1. Substitute a variable for every con- 
stant: 

F=255: P=256: Z=49222 

2. Set up two arrays ahead of time: 

FOR 1=0 TO 7: P(I)=2| (7-1) : 
M(I)=255-P(I): NEXT I 

Then, to plot a foreground point: 

POKE BY.PEEK(BY) OR P(X AND 7) 
To plot a background point: 

POKEMBY,PEEK(BY) AND M(X AND 7) 

Of course, the ultimate in speed is ob- 
tained by skipping BASIC altogether. 
You can write a very simple program 
that reads numbers from a table and 
stores them in the registers XPOS, XHI, 
and YPOS. Then enter at label PPLOT. 
A little extra caution is necessary to be 
sure everything is set up properly. 



Enhancements 

The most convenient way to use 
BMCALC from BASIC would be 
something like: 

SYS WW+88,< X express ion> , 

< Y expression> , < C expression> 

So to draw a vertical line, you could 
write; 

FOR Y=0 TO 199 
SYS WW+88,50,Y,1 
NEXT Y 

Writing such a driver is straight- 
forward, but it takes a little more code. 
This technique will be covered in a 
future article. 

Next Month 

The power of machine language plot- 
ting is amplified with a machine- 
language line calculator program and a 
driver that automatically reads the 
values of BASIC variables XI, Yl, X2, 
Y2, and C. Fast line drawing makes a 
lot more possible, including animation 
of 3-D objects. 
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xxxxxxxx****x*»xxxxx***xxxx«x 


C070 AD 00 DD INIT IDA 
0073 49 03 EOR 


56576 
#3 


CIA PORT A 
REVERSE BITS 




o 




& X 

* BIT MAP CALCULATOR WITH * 

* BASIC-VARIABLE DRIVER * 


0075 A2 06 LDX 
C077 0A LOOP0 ASL 
C078 CA DEX 


#6 
A 


4 1 (BANK) 
SHIFT TO 
POS 6 & 7 




o 




* BY LOREN W. WRIGHT * 


C079 D0 FC 
C07B 8D 10 C0 


BNE 
STA 


LOOP0 
BMLOC 










**»»#-**#*****#*##***X*X****** 


C07E 8D 11 C0 
C081 A9 08 


STA 
LDA 


SCRHI 
#8 






Q C040 


P0INTR = $FB ;ZER0-PAGE POINTER 


C083 2D 18 D0 
C086 F0 02 


AND 

BEQ 


53272 
NEXT1 


BIT MAP POS 
WITHIN BANK 








•$C000-$C00F RESERVED FOR USER 


C088 A9 20 LDA 
C08A 0D 10 C0 NEXT1 ORA 


#$00100000 ;L0W 8K 
BMLOC ;SET BIT 5 IF 




O 




SYSTEM CONSTANTS 


C08D 8D 10 C0 
C090 AD 18 D0 


STA 

LDA 


BMLOC 
53272 


TOP 8K 

GET SCREEN LOC 




C040 

qC040 

0040 

0040 


BMLOC = $0010 ; START BIT MAP (HI) 
SCRHI = BML0C+1 ; START SCREEN MEM (HI) 
MCFLAG = BMLOC+2 ;MC ON=$10— OFF=$00 
PMODE = BML0C+3 ;PL0T MODE OR COLOR 


C093 29 F0 
C095 4A 
0096 4A 
C097 0D 11 C0 
C09A 8D 11 C0 


AND 
LSR 
LSR 
ORA 
STA 


#U1110000 

A ;DIVIDE BY 4 

A 

SCRHI ;OR IN BANK # 

SCRHI 




o 


t 

; GENERAL-PURPOSE AND TEMPORARY 


C09D AD 16 D0 
C0A0 29 10 


LDA 
AND 


53270 
#$10 


CHECK FOR 




0040 


MASK = BMLOC+4 


C0A2 8D 12 C0 


STA 


MCFLAG 


MULTICOLOR 




C040 


TEMP = BMLOC+5 


C0A5 60 


RTS 








OC040 


ENDHI = TEMP 












0040 


PATTRN = BML0C+6 




PLOT POINT 


ON BIT MAP SCREEN 




C040 


FCOLOR = PATTRN 




FROM BASIC 


VARIABLES X, Y, & C 




O 




;INFO FOR CURRENT BIT-MAP POINT 


C0A6 A9 58 XYPLOT LDA 


#"X" 


SET UP BASIC 










C0A8 85 45 


STA 


$45 


VAR X 




C040 


XPOS = $0018 ;LOW 8 BITS 


C0AA A9 00 


LDA 


#0 






QC040 


XHI = XP0S+1 ;9TH BIT 


C0AC 85 46 


STA 


$46 






C040 


YPOS = XP0S+2 ;TOP LEFT ORIGIN 


C0AE 20 7D CI 


JSR 


VARSET 






C040 


YHI = XPOS+3 ; ERROR CHECKING 


C0B1 A5 64 


LDA 


$64 






0040 


COLUMN = XP0S+4 ; CHARACTER COLUMN 


C0B3 8D 19 C0 


STA 


XHI 






OC040 


ROW = XPOS+5 ; CHARACTER ROW 


C0B6 A5 65 


LDA 


$65 












C0B8 8D 18 C0 


STA 


XPOS 










$C030-$C03F RESERVED FOR LINE CALC 


C0BB A9 59 


LDA 


#"Y" 


SET UP BASIC 








USAGE NEXT MONTH 


C0BD 85 45 


STA 


$45 


VARIABLE Y 




O 






C0BF 20 7D CI 


JSR 


VARSET 


$46 IS ZERO 








* 


C0C2 A9 07 


LDA 


#199 


INVERT Y TOP 








* VECTORS FOR ROUTINES 


C0C4 38 


SEC 




TO BOTTOM 




o 




X 


C0C5 E5 65 


SBC 


$65 


FOR LOWER-LEFT 




0040 


*= $C040 

J 


C0C7 8D 1A C0 
C0CA A9 00 


STA 
LDA 


YPOS 
#0 


ORIGIN 




C040 40 70 C0 


INITV JMP INIT 


C0CC 8D IB C0 


STA 


YHI 






o 


; INITIALIZATION 


C0CF A9 43 


LDA 


#"C" 


SET UP VAR C 




C043 40 A6 C0 PLOTV JMP XYPLOT 


C0D1 85 45 


STA 


$45 


$46 IS STILL 






; USES BASIC X,Y & C TO PLOT PT 


C0D3 20 7D CI 


JSR 


VARSET 






(-^046 4C BB CI 


CALCV JMP BMCALC 














; USES XPOS, XHI, YPOS 


C0D6 AD 12 C0 PPLOT LDA 


MCFLAG 


CHECK FOR 




C049 40 82 C2 LINEV JMP LNDRAW 


C0D9 D0 3D 


BNE 


MCPLOT 


MULTICOLOR 






; USES BASIC X1,Y1,X2,Y2,C TO DRAW LINE 












Oc04C 4C 08 C2 


HCLRV JMP HCLEAR 


C0DB 20 8B CI HRPLOT JSR 


ERRCHK 








; FILL BIT MAP WITH PATTERN 


C0DE D0 37 


BNE 


HRERRX 






C04F 40 2E 02 


CCLRV JMP CCLEAR 


C0E0 20 BB 01 


JSR 


BMCALC 


CALCULATE 




C052 40 3D 02 


; FILL COLOR MEM WITH COLOR 








BIT MAP BYTE 




SET1V JMP SET1 


C0E3 AD 18 C0 


LDA 


XPOS 








; FILL SCREEN MSB-4 WITH COLOR 


C0E6 29 07 


AND 


#7 






C055 4C 4E 02 SET2V JMP SET2 


C0E8 49 07 


EOR 


#7 


LEFT TO RIGHT 




o 




FILL SCREEN LSB-4 WITH COLOR 


C0EA AA 

C0EB BD 6D CI 


TAX 
LDA 


HRTABL,X 










HERE THROUGH $C06F RESERVED FOR 


C0EE 8D 14 00 


STA 


MASK 










USER'S VECTORS 


C0F1 AC 13 00 


LDY 


PMODE 


PLOT MODE IN Y 




o 






C0F4 A2 00 


LDX 


#0 










CALCULATES BIT MAP START FROM 


C0F6 Al FB 


LDA 


(POINTR,) 


;GET CURRENT 








BANK SELECTION 








BIT-MAP BYTE 




o 




& BIT MAP LOCATION 


C0F8 C0 02 TOGGLE CPY 


#2 


TOGGLE MODE 








CALCULATES SCREEN MEM START 


C0FA D0 05 
C0FC 4D 14 C0 


BNE 
EOR 


FGPLOT 
MASK 






C070 


*= $C070 


C0FF 90 14 


BCC 


FINIS 
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C101 C0 01 


FGPLOT 


CPY 


§1 ; FOREGROUND MODE 


C190 90 09 




BCC 


YCHEK 




C103 D0 05 




BNE 


BGPLOT 


C192 D0 16 




BNE 


ERRTRN 




C105 0D 14 C0 




ORA 


MASK 


C194 AD 18 C0 




LDA 


XPOS 


o 


C108 90 0B 




BCC 


FINIS 


C197 C9 40 




CMP 


#319-256+1 




f 






C199 B0 0F 




BCS 


ERRTRN 




C10A C0 00 


BGPLOT 


CPY 


#0 


BACKGND/ERASE MODE 


} 










C10C D0 07 




BNE 


FINIS 


NO CHANGE IF > 2 


C19B AD IB C0 YCHEK 


LDA 


YHI 


o 


C10E AD 14 C0 




LDA 


MASK 


OR <0 


C19E D0 0A 




BNE 


ERRTRN 




Clll 49 FF 




EOR 


#5511111111 


C1A0 AD 1A C0 




LDA 


YPOS 




C113 21 FB 


J 


AND 


(POINTR.X) 


C1A3 C9 C8 
C1A5 B0 03 




CMP 

BCS 


#199+1 

ERRTRN 


o 


C115 81 FB 


FINIS 


STA 


(POINTR,X) ; STORE NEW 


') 








: 


C117 60 


HRERRX 


RTS 


; VERSION 


C1A7 A9 00 NOERR 


LDA 


#0 






} 






C1A9 60 




RTS 




o 


C118 20 AD CI 


MCPLOT 


JSR 


MCERCK 


j 










C11B D0 3E 




BNE 


MCERRX 


C1AA A9 FF ERRTRN 


LDA 


#$FF 




C11D 0E 18 C0 




ASL 


XPOS ;SEND BMCALC 2*X 


CUC 60 




RTS 




o 


C120 2E 19 C0 




ROL 


XHI 


} 








C123 20 BB CI 




JSR 


BMCALC 


C1AD AD 19 C0 MCERCK 


LDA 


XHI 




C126 4E 19 C0 




LSR 


XHI ;AND RESTORE 


C1B0 D0 F8 




BNE 


ERRTRN 




C129 6E 18 C0 




ROR 


XPOS 


C1B2 AD 18 C0 




LDA 


XPOS 


o 


C12C AD 18 C0 




LDA 


XPOS 


C1B5 C9 A0 




CMP 


#159+1 




C12F 29 03 




AND 


#3 


C1B7 B0 Fl 




BCS 


ERRTRN 




C131 49 03 




EOR 


#3 


MASK CONTAINS 


C1B9 90 E0 




BCC 


YCHEK 




C133 8D 14 C0 




STA 


MASK 


BIT-PAIR POS. 













C136 AD 13 C0 




LDA 


PMODE 


0-3 FOR COLORS, 




CALCULATE BYTE FROM XHI, XPOS & YPOS 




C139 C9 04 




CMP 


#4 


4 TO TOGGLE 




COLUMf* 


& ROW MAINTAINED 




C13B F0 IF 




BEQ 


MCTOGL 




FOR CHAR & 


COLOR CALCULATIONS 


o 


C13D B0 1C 




BCS 


MCERRX 










C13F AE 14 C0 




LDX 


MASK 


C1BB AD 18 C0 BMCALC 


LDA 


XPOS 




C142 F0 05 




BEQ 


MCNEXT 


C1BE 8D 1C C0 




STA 


COLUMN 




C144 0A 


MCLOOP 


ASL 


A ; SHIFT PMODE TO 


C1C1 AD 1A C0 




LDA 


YPOS 


o 


C145 0A 




ASL 


A ; PROPER BIT PAIR 


C1C4 8D ID C0 




STA 


ROW 




C146 CA 




DEX 




C1C7 AD 19 C0 




LDA 


XHI 




C147 D0 FB 




BNE 


MCLOOP 


C1CA A2 03 




LDX 


#3 


INTEGER DIVIDE 






} 






C1CC 4A LOOPB 


LSR 


A 


BY 8 


o 


C149 8D 15 C0 MCNEXT 


STA 


TEMP ;NEW PIXEL DATA 


C1CD 6E 1C C0 




ROR 


COLUMN 


9TH BIT OF 




C14C Al FB 




LDA 


(POINTR.X) ;GET CURRENT 


C1D0 4E ID C0 




LSR 


ROW 


XPOS FROM XHI 




C14E AE 14 C0 




LDX 


MASK ; BM BYTE 


C1D3 CA 




DEX 







C151 3D 75 CI 




AND 


SVTABL.X ;SAVE OTHER 


C1D4 D0 F6 




BNE 


LOOPB 


C154 0D 15 C0 




ORA 


TEMP ; 3 BIT PAIRS 


C1D6 A9 00 




LDA 


#0 




C157 A2 00 




LDX 


#0 


C1D8 85 FC 




STA 


POINTR+1 




C159 81 FB 


') 


STA 


(POINTR,X) 


C1DA A2 06 
C1DC AD ID C0 




LDX 
LDA 


#6 

ROW ; MULTIPLY BY 64 


o 


C15B 60 


MCERRX 


RTS 




C1DF 0A LOOPC 


ASL 


A 






'} 






C1E0 26 FC 




ROL 


POINTR+1 


o 


C15C A2 00 


MCTOGL 


LDX 


w 


C1E2 CA 




DEX 




C15E Al FB 




LDA 


(POINTR,X) 


C1E3 D0 FA 




BNE 


LOOPC 




C160 AE 14 C0 




LDX 


MASK 


C1E5 85 FB 




STA 


POINTR 




C163 3D 79 CI 




AND 


STTABL, X 


C1E7 AD 18 C0 




LDA 


XPOS 


o 


C166 5D 79 Cl 




EOR 


STTABL, X 


C1EA 29 F8 




AND 


#$11111000 ;SAME AS 




C169 A2 00 




LDX 


#0 


C1EC 18 




CLC 


; 8 * COLUMN 


C16B F0 DC 




BEQ 


MCNEXT j ALWAYS 


C1ED 65 FB 




ADC 


POINTR 


o 




J 






C1EF 85 FB 




STA 


POINTR 


C16D 01 02 04 HRTABL 


.BYTE $01 ,$02 ,$04, $08 ,$10 


C1F1 A5 FC 




LDA 


POINTR+1 




C172 20 40 80 




.BYTE $20, $40, $80 


C1F3 6D ID C0 




ADC 


ROW ;SAME AS +256*ROW 


C175 FC F3 CF 


SVTABL 


.BYTE $FC,$F3,$CF,$3F 


C1F6 6D 19 C0 




ADC 


XHI 


o 


C179 03 0C 30 


STTABL 


.BYTE $03,$0C,$30,$C0 


C1F9 0D 10 C0 




ORA 


BMLOC ;BITS 5, 6, & 7 














C1FC 85 FC 




STA 


POINTR+1 ; FROM INIT 








VARIABLE NAME IN $45, $46 


C1FE AD 1A C0 




LDA 


YPOS 








RETURNS INTEGER IN $64 (HI) ,$65(LO) 


C201 29 07 




AND 


#«00000111 ;GET LINE 


o 












C203 05 FB 




ORA 


POINTR ; WITHIN CHAR ROW 


C17D 20 E7 B0 VARSET 


JSR 


$B0E7 


FIND VARIABLE 


C205 85 FB 




STA 


POINTR 




C180 A5 47 




LDA 


$47 


(ROM ROUTINE) 


C207 60 




RTS 




o 


C182 A4 48 
C184 20 A2 BB 




LDY 
JSR 


$48 
$BBA2 


LOAD FAC #1 W/ 
VALUE (ROM) 




;*CLEARING 


ROUTINES 


C187 20 9B BC 
C18A 60 




JSR 
RTS 


$BC9B 

; H-: 


FAC-TO-INT 
!64,L-$65 (ROM) 




• * 

;*INIT MUST HAVE BEEN PERFORMED 
;* AND $C018 MUST CONTAIN COLOR 


o 


C18B AD 19 C0 ERF.CHK 


LDA 


XHI 




;* OR 


PATTERN 




C18E C9 01 




CMP 


#1 
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C208 AD 10 C0 HCLEAR 


LDA 


BMLOC ; ENTRY TO SET BIT 






C20B 85 FC 




STA 


POINTR+1 ;KAP TO PATTERN 






C20D 18 




CLC 


;SET UP POINTR 






O C20E 69 20 




ADC 


#$20 ; & ENDHI 






C210 8D 15 C0 




STA 


ENDHI 


Sine Wave Demo 




C213 A9 00 




LDA 


#0 






O C215 85 FB 




STA 


POINTR 


10 WW=49152 










20 GOSUB 8000: REM SET UP SCREEN 




C217 A0 00 


HMAIN 


LDY 


m 


30 SYS WU+64: REM INIT 




C219 AD 16 C0 HLOOP 


LDA 


PATTRN ;PAGE CLEAR USED 


40 POKE W+22,0: SYS WW+76: REM CLEAR BIT-MAP 




O C21C 91 FB 


INLOOP 


STA 


(POINTR) ,Y ; BY HCLEAR 


50 POKE WW+22,0: SYS WW+82: REM FGD=0 




C21E C8 




INY 


; AND CCLEAR 


60 POKE WV+22,1: SYS WW+85: REM BGD=1 




C21F D0 FB 




BNE 


INLOOP 


100 C=l: P=3. 14159265 




_ C221 A5 FC 




LDA 


POINTR+1 ; ADVANCE PAGE 


110 FOR X=0 TO 319 




O 

w C223 18 




CLC 




120 Y=100+INT(SIN(X*P/160)*95+.5) 




C224 69 01 




ADC 


#1 


130 SYS WW+67: REM PLOT POINT 




C226 85 FC 




STA 


POINTR+1 


140 NEXT X 




O C228 CD 15 C0 




CMP 


ENDHI 


900 GET T$:IF T$="" THEN 900 




C22B D0 EC 




BNE 


HLOOP 


910 GOSUB 8100 




C22D 60 




RTS 




999 STOP 

8000 REM HI-RES SETUP 




° C22E A9 D8 


f 

C CLEAR 


LDA 


#$D8 ; ENTRY TO SET 


8010 POKE 56578, PEEK(56578) OR 3 




C230 85 FC 




STA 


POINTR+1 ; COLOR MEM TO 


8020 POKE 56576, PEEK( 56576) AND 252 OR 2 




C232 A9 00 




LDA 


W } COLOR-MC COLOR 11 


8030 POKE 53272, PEEK (53272) AND 7 OR 120 




O C234 85 FB 
C236 A9 DC 




STA 


POINTR ;SETUP POINTER 


8040 POKE 53265, PEEK(53265) OR 32 






LDA 


#$DC ; & ENDHI 


8050 RETURN 




C238 8D 15 C0 




STA 


ENDHI 


8100 REM RESTORE CHAR SCREEN 




C23B D0 DA 




BNE 


HMAIN ; ALWAYS 


8110 POKE 56578, PEEK( 56578) OR 3 




o 








8120 POKE 56576, PEEK( 56576) OR 3 




} 

C23D AD 16 C0 SET1 


LDA 


FCOLOR ; ENTRY TO SET MC 


8130 POKE 53272, PEEK(53272) AND 7 OR 16 




C240 0A 




ASL 


A ; COLOR 01 & 


8140 POKE 53265, PEEK (53265) AUD 223 




O C24l 0A 




ASL 


A ; HR BACKGROUND 


8150 RETURN 




C242 0A 




ASL 


A 






C243 0A 




ASL 


A 






C244 8D 16 C0 




STA 


FCOLOR 






O C247 A9 0F 
C249 8D 14 C0 
C24C D0 05 

o 

C24E A9 F0 




LDA 
STA 


#*00001111 ;T0 PRESERVE 
MASK ; LOW 4 BITS 










DViXL, OiLiUULUn jHLWftlO 
t 

; ENTRY TO SET MC COLOR 10 & HR 
SET2 LDA /r*11110000 






[>i!3K a iDwa™3< 




AN ESSENTIAL DISK & MEMORY UTILITY 




C250 8D 14 C0 




STA 


MASK 




FOR THE COMMODORE 64™ & DRIVE 


o 

C253 AD 11 C0 SETCOLOR LDA 


SCRHI ;SET UP POINTR 




Easy to Use -help -keystroke commands 


C256 85 FC 




STA 


POINTR+1 ; AND ENDHI 




•Disk Track/Sector Editor 


C258 18 




CLC 






• Examine and modify disk sector data 


O C259 69 03 




ADC 


#3 




• File Follower - memory for 15 1 sectors 


C25B 8D 15 C0 




STA 


ENDHI 




• Fast 1541 disk compare and error check 


C25E A9 00 




LDA 


m 




■Display Memory and Disk Data 


n C260 85 FB 
C262 A8 




STA 


POINTR 




in Hex, ASCII or Screen Code 




TAY 


















•Edit full page in Hex or ASCII 


C263 Bl FB 


CLOOP 


LDA 


(POINTR), Y ;TAKE WHAT'S 




• Disassemble memory and disk data 


O C265 2D 14 C0 




AND 


MASK ; THERE, KEEP 




• Search for string • Un-new Basic pgms 


C268 0D 16 C0 




ORA 


FCOLOR ;THE OTHER 




•Read drive memory • Convert Hex/Dec 


C26B 91 FB 




STA 


(POINTR), Y ; COLOR, CHANGE 




•Free sector map -Use DOS wedge 


n C26D C8 




INY 


; PROPER 4 BITS 






C26E F0 0D 




BEQ 


NEXTPG ; AND PUT IT BACK 




•Run ML routines • Extensive manual 


C270 C0 E8 




CPY 


iC$E8 ;SCREEN+$3E7 




•Printer screen dump (serial bus) 


C272 D0 EF 




BNE 


CLOOP ; IS END 




•Fast machine code! Compatible with 


QC274 A5 FC 




LDA 


POINTR+1 ;TEST FOR 




many Basic and monitor programs 


C276 CD 15 C0 




CMP 


ENDHI ; LAST PAGE 




•Supports serial bus dual disk drive 


C279 D0 E8 
C27B F0 04 




BNE 
BEQ 


CLOOP ; CONTINUE IF NOT 
DONE 
















QUANTUM SOFTWARE 




ALL FOR 




o 


J 










P.O. BOX 12716 , Dept. 64 




$29.95 




C27D E6 FC 
C27F D0 E2 


NEXTPG 


INC 
BNE 


POINTR+1 ; ADVANCE PAGE 
CLOOP 






L LAKE PARK, FL 33403 




US Post Peld 
























TO ORDER : Send check or money order, US dollars 


o 


'* 








Florida residents add 5°fo sales tai 


C281 60 


DOME 


RTS 






COD add SB. Call 305-840-0219 

Commodore 64 is a registered trademark of Commodore Electronics Ltd. 


C282 60 


LNDRAW 


RTS 


;NEXT MONTH! 




. PEEK A BYTE is a trademark of Quantum Software 
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MAdliNE , AUrMlkM 






by Chris Williams 




Loops 










Ogden, Utah 


Misconceptions About 

Machine Language Loops — Exposed 




This is the latest in an informal series 


LDX #04 






of articles on speed in assembly 


LOOP LDA$VAL,X 


Bytes 




language programming. The first arti- 


STA $VALSTR,X 


Used 




cle was a presentation of techniques. 


DEX 






This one is a discussion of a popular 


BNE LOOP 


LDA $VAL 3 




misconception about machine 




STA $VALSTR 3 




language loops. 




LDA $VAL+1 3 




Readers who are experienced 


And some people would use ... 


STA JVALSTR+1 3 




machine language programmers are 




LDA JVAL+2 3 




probably frowning right now in reac- 


LDX #00 


STA $VALSTR+2 3 




tion to the title and that's good. It was 


LOOP LDA$VAL,X 


LDA JVAL+3 3 




meant to get their attention. It is they 


STA $VALSTR,X 


STA $VALSTR+3 3 




who are wrong about loops. 


INX 







How? Well, like any other technical 


CPX #04 


24 BYTES 




type, machine language programmers 


BNE LOOP 






tend to use educated intuition in 








deciding how to perform a given task. 


... though they shouldn't and, if 


And for the loop: 




That intuition is the product of 


they'd read my previous article on 






experience. The solutions they've en- 


speed and counting down, they would 






countered in the past tend to get 


have known better. 


LDX #04 2 




selected as the best solution for the 


But back to the point. Which of the 


LOOP LDA $VAL,X 3 




problem at hand. 


two ways of LOADing and STOREing 


STA JVALSTR.X 3 




Fine. And yes, I know that's 


do you prefer? Sure, you like the 


DEX 1 




obvious. But it has a subtle rami- 


second one. Loops are elegant. They're 


BNE LOOP 2 




fication that quite literally has swept 


popular. They're easier to type in. And 






the industry. You see, there's a pro- 


your intuition tells you they're just 


— 




blem. Suppose those solutions en- 


plain superior. 


11 BYTES 




countered in the past were wrong? 


Let's see. First, let's examine the 






Examine, if you will, the following 


memory storage in Figure 1. 






sequence of 6502 assembly language 


The results there show a healthy 


Or, if you insist on doing it wrong: 


instructions. 


memory savings for the loop. For a 
speed comparison, now look at Figure 






LDA $VAL 


2. 


LDX #00 2 




STA $VALSTR 


Hmmm, the byte ratio is 24/11 


LOOP LDA $VAL,X 3 




LDA JVAL+1 


(24/13 for the wrong way] in favor of 


STA $VALSTR,X 3 




STA JVALSTR+1 


the loop and the speed ratio is 62/32 in 


INX 1 




LDA $VAL+2 


favor of sequence code. Let's observe 


CPX #04 2 




STA JVALSTR+2 


here that, if there is no inordinate value 


BNE LOOP 2 




LDA $VAL+3 


placed on either speed or memory (i.e., 






STA JVALSTR+3 


they're equally valuable), the larger 


— 






memory ratio advantage of the loop is 


13 BYTES 




You've probably never seen that 


probably compelling and that would be 






sort of thing before, especially if it had 


the way to go. All who preferred the 






gone out to $VAL+9 or SVAL+10 or 


loop may congratulate themselves. 


Figure 1 Memory Usage 




farther. 

No, most likely you've seen that 


Their intuition in this case was correct. 
Now then, suppose there was only 






Figure 3. Would anyone use a 


loop 


operation done like so: 


one LOAD-STORE pair as shown in 


here? 
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I hope not. The numbers clearly 
show the loop to be inferior in both 
memory used and speed. 


Bytes Machine 
Used Cycles 
LDA IVAL 3 A 


LDA $VAL 


A 






So, the whole issue comes down to 


STA IVALSTR 3 4 


STA IVALSTR 


A 






this question. At what point should 


- . . 


LDA $VAL+1 


A 






you stop writing LOAD-STORE pairs 


— 


STA IVALSTR+1 


A 






and start writing loops? 


6 BYTES 8 CYCLES 


LDA |VAL+2 


A 






I've asked this question of several 




STA $VALSTR+2 


A 






assembly language competent friends 




LDA $VAL+3 


A 






and their answers are interesting, 


The loop would be: 


STA $VALSTR+3 


A 






mainly because they were all the same. 
"Use a loop when there's three or 






32 


CYCLES 




more pairs," they said, almost as one. 
"Three is the magic number." 
I'll bet you agree. 


LDX #1 2 2 
LOOP LDA |VAL 3 A 
STA IVALSTR 3 4 


And for the loop: 








Sorry. The right answer is two. 
Examine Figure 4. 

You pass memory breakeven at 2 


DEX 1 2 
BNE LOOP 2 A 


LDX #04 


2 






pairs and, indeed, have a one byte ad- 


— 


LOOP LDA $VAL,X 


A 






vantage there. The speed ratio is 2: 1. At 


11 BYTES 16 CYCLES 


STA IVALSTR, X 


5 






3 pairs the memory advantage con- 




DEX 


2 






tinues to grow and the speed ratio 


Figure 3 The Single LOAD-STORE Pair 


BNE LOOP 


A 






shrinks almost not at all. Since the 




speed ratio is essentially the same, the 


deceptive. I suspect it fails us in this 




— 






memory factor is decisive, and since we case because a loop requires us to type 5 


2+(15*4)=62 CYCLES 


passed equality there at 2 pairs, then lines of code for 2 pairs as opposed to 4 










clearly that was the point at which to lines of code for a sequence, even 










switch over to loops, not at 3 pairs. though the memory requirement is 


Figure 2 Speed in 


Machine Cycl 


2S 


This failure in intuition is discon- less. It's laziness changing our minds 










certing. One grows to depend on it in and warping our judgement here, not 










technical fields. It's usually not that logic. Be aware of it. 


For three LOAD-STORE pairs: 




For two LOAD-STORE pairs: 




Bytes Machine 


LDA IVAL 3 4 




Used Cycles 


STA IVALSTR 3 4 


LDA $VAL 




3 


A 


LDA |VAL+1 3 ^ 


STA $VALSTR 




3 


A 


STA |VALSTR+ 3 ** 


LDA IVAL+1 




3 


A 




STA IVALSTR+1 


3 


A 


— 


LDA |VAL+2 




3 


A 


12 BYTES 16 CYCLES 


STA IVALSTR+2 


3 


A 














The loop would be: 






18 BYTES 


2A CYCLES 










LDX #02 2 2 


The loop would be: 






LOOP LDA |VAL,X 3 4 










STA IVALSTR, X 3 5 










DEX 12 


LDX #03 




2 


2 


BNE LOOP 2 A 


LOOP LDA |VAL,X 




3 


A 




STA IVALSTR 


,x 


3 


5 


— 


DEX 




1 


2 


11 BYTES 2+ (15*2) =32 CYCLES 


BNE LOOP 




2 


A 








11 BYTES 


2+(l5*3)=47 CYCLES Figure A Tvo vs Three Pair 
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Interactjve Input UTilrry 



by Mike Dougherty 
Littleton, Colorado 



You Can Improve the Usefulness of Your FORTH 
Programs by Adding this Interactive Input Utility 



Introduction 



FORTH contains a rich vocabulary to 
output data and information. Words 
such as ,R, #, TYPE and ." allow 
great flexibility for printing data. 
Unfortunately, user input is handled 
primarily through the text interpreter. 
Turnkey applications and users not 
familiar with FORTH often require a 
more interactive approach. The Input 
Utility, Listing 1, defines MENU and 
PROMPT to supply some of this 
missing interaction. 

Menu 

The utility MENU, Screens 55-67, al- 
lows a FORTH application to display 
lines 1-15 of a disk Screen as a menu of 
choices. A choice is selected from the 
menu via the keyboard consol 
switches. Line of the menu Screen is 
reserved for MENU parameters. The 
entire menu Screen may be created or 
modified with a FORTH text editor. 

A simple menu, Screen # 26, is 
shown in Figure 1. To use this Screen 
as a menu, execute: 

26 MENU 

Upon execution, the current menu 
selection will be set to the first menu 



selection. Each non-blank character in 
the current menu selection is high- 
lighted by inverse video. The Atari 
operating system shadow register, 
CHACTL, located at memory address 
755, is used to blink the highlighted 
characters by the word BLINK. The 
user changes the current menu se- 
lection by pressing the SELECT or 
OPTION consol switch. When the 
START consol switch is pressed, 



MENU returns the value of the current 
menu selection, 1 to n, where n is the 
total number of menu selections. 

MENU uses two single precision 
numbers located in an ASCII free text 
format in line of the menu Screen. 
The first number, TOP-MENU, defines 
the menu Screen line number [1 
through 15) of the first menu selection. 
The second number, BOT-MENU, de- 
fines the menu Screen line number 



SCR 

1 

*"> 

J- 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



# 26 

9 12 

****♦»♦*##♦*♦♦♦♦#♦♦* 

* * 

* GRADES SELECTION * 

* * 
*♦♦*###♦♦#**#♦♦*#♦♦* 

SELECT one of the following: 

1) Read Class from Disk 

2) Class Modification 

3) Report Generation 

4) Write Class to Disk 



Press START to choose SELECTion 



Figure 1 Simple Menu 
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(TOP-MENU through 15) of the last 
selection. The total number of menu 
selections is BOT-MENU - TOP- 
MENU + 1 . These selection limits 
are read from the menu Screen by the 
word SET-LIMITS. MENU makes the 
assumption that each menu selection 
will take only one video line to display. 
When I use MENU, I set the left margin 
offset, LEFT-OFFSET, to 2 and limit 
each menu selection to a 32 character 
line. | My FORTH Screen Editor manip- 
ulates half lines of 32 characters with 
particular ease.) For vertical spacing, 
the top margin offset, TOP-OFFSET, is 
set to 2. Extensions to MENU could 
allow the spacing offsets to be read 
from the first menu Screen line along 
with the selection parameters. 

MENU relieves the FORTH appli- 
cation of the details of displaying text 
menus. Instead, the application is only 
concerned with responding to the user 
selection. Further, the menu wording 
may be modified without re-LOADing 
the application. 

Prompt 

The utility PROMPT, Screens 68-72, 
allows a FORTH application to prompt 
a user to input a single precision integer 



within a specified range. The prompt is 
repeated until a value within that range 
is entered. APX fig-FORTH 1.1 already 
defines the word PROMPT to print the 
FORTH "ok" message. Since I never 
need this function, I let my utility 
redefine PROMPT. For any user requir- 
ing the old definition of PROMPT, the 
Input Utility version should be 
renamed. 

The prompt text is created with the 
" defining word, Screens 68 and 69. For 
example, to prompt for examination 
grades, a prompt named TEST may be 
defined: 

1 100 " TEST Exam Grade (1-100) : ' ' 

The " defining word will use the 
next word in the input stream, TEST, 
to create a dictionary entry by the 
BUILDS portion of the " definition. 
The rest of the BUILDS compiles the 
input limits from the stack and a 
dimensioned string of characters into 
the dictionary. The results of the above 
PROMPT string is illustrated in Figure 
2. Subsequent execution of TEST 
leaves the prompt text address, prompt 
length, minimum and maximum on 
the stack as defined by the DOES 
portion of the " defining word. 



The following uses TEST as a 
prompt and returns a value in the range 
of 1 to 100 inclusively. 

TEST PROMPT 

The returned value will be a single 
precision number on top of the data 
stack. PROMPT will not return until a 
user number is entered within the 
specified range of 1 to 100. In general, 
to define and use the prompt XYZ to 
input a number between nl and n2: 



nl n2 "XYZ 
XYZ PROMPT 



prompt text 



The use of PROMPT relieves the 
FORTH application of the burden of 
performing range validation for each 
input. 

Conclusion 

The utilities MENU and PROMPT 
were defined to solve specific problems 
I had with my applications. Obviously, 
they can be modified to fit each user's 
own needs. The main idea remains to 
modify past FORTH definitions to fit 
into new situations, saving program- 
ming work and time. 



VIDEO DISK CARTRIDGE 

for the 
CBM C-64 

Features 

• Interface Cartridge controls one or two laser video disks 
via the remote control input. 

• Provides control of popular players including IR 
interfaces 

• Exclus've direct read of frame/chapter video data. 

• Includes integral audio (4w)-video switch matrix 

• Extension language adds 40 video disk and HRES 
graphics commands to CBM C64 BASIC 

• Optional C64-FORTH/79 com patable VIDEO DISK 
control language. 

• On- Board 8 -3 2 k EPROM for au toboot of Basi c programs 

• Extensive Manual describes use, with examples, demo 
template programs and video disk resources 

• Industrial quality cartridge integrates video disk 
configurations and simplifies programming 

CBM is a trademark of Commodore Business Machines 

Introductory Price 
Model 1 064 - Single Video Disk Interface Cartridge - $249 
Model 2064 - Dual Video Disk Interface Cartridge - $299 

TO ORDER 

- Check, money order, bank card, COD'sadd $1.65 

- Add $4.00 postage and handling in USA and Canada 

- Mass. orders add 5% sales tax 

- Foreign orders add 20% shipping and handling 

- Dealer Inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

P.O. Box 370 ^^^ 

Canton, Mass. 02120 visa 

(617)828-1209 ■■■■ 



C64-FORTH/79 

New and Improved 
for the Commodore 64 

C64-Forth/79 T " for the Commodore 64-$99.95 

• New and improved FORTH-79 implementation with 
extensions. 

• Extension package including lines, circles, scaling, 
windowing, mixed high res-character graphics and sprite 
graphics. 

• Fully compatible floating point package including 
arithmetic, relational, logical and transcendental functions. 

• String extensions including LEFTS, RIGHTS, and MID$. 

• Full feature screen editor and macro assembler. 

• Compatible with VIC peripherals including disks, data set, 
modem, printer and cartridge. 

• Expanded 167 page manual with examples and application 
screens. 

• "SAVE TURNKEY" normally allows application program 
distribution without licensing or royalties. 

(Commodore 64 is a trademark of Commodore) 

TO ORDER 

-Disk only. 

-Check, money order, bank card, COD's add $1.65 

-Add $4.00 postage and handling in USA and Canada 

-Mass. orders add 5% sales tax 

-Foreign orders add 20% shipping and handling 

-Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

770 Dedham Street ^^^ 

Canton, MA 02021 VISA 

(617) 828-1209 ^^■ l 
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Database Management Systems 



by Sanjiva K. Nath 

San Francisco, California 



Detailed Discussion of the Major Components that 
make up a Database Management Package 



Introduction 

Computers are able to process data at 
incredible speeds. They can also store 
vast amounts of information in storage 
media a miniscule fraction of the size 
of filing cabinets. We refer, of course, 
to disks, cassettes and diskettes. 
Computers can organize information, 
sort it and present it to you in any order 
that you specify, all at a fraction of the 
time that you would take to do the task 
manally. Consider, for example, 
sorting through a list of about 1000 
addresses to extract a few cor- 
responding to a specific ZIP code, or 
searching through a library card catalog 
for books authored by Joe Smith on 
the subject of mating rituals of blue 
whales. Either of these tasks performed 
manually would require, even by the 
best estimates, at least a few days. But 
a computer can accomplish that in 
minutes. You can easily understand, 
therefore, why one of the most 
common applications of computers is 
information management. 

Information Management or 
Database Management 

Computer-assisted information 
management begins with organizing 
data in the form of records. A record 
is the fundamental unit of a large 
structure called a database. It contains 
information relating to one subject. For 
example, in a library card catalog, each 
3x5 index card contains information 



relating to the bibliography of a book. 
Each card is, therefore, a record. A 
collection of related records may be 
grouped into a file. For example, 
a collection of employee records 
constitutes a personnel file. And a list 
of patients, with their medical history 
and insurance details, may form a 
patient file. 

From Records to Databases 

You can further group files containing 
related information and create a 
database. A simple database may only 
consist of one file. For example, a list of 
your friends with whom you frequently 
correspond, their phone numbers, and 
mailing addresses is such a database. 
A more complex database, on the other 
hand, consists of information 
contained in many files. These 
databases provide information on a 
wide variety of subjects to a larger 
audience. They also facilitate 
communications between many users 
for on-line conferences. One such 
database, CompuServe, provides 
information on many areas of interest 
such as science, education, games, 
programming, etc. It also lets you talk 
to other computer users and hold 
conferences within your computer 
club, over the telephone line using your 
computer and a modem. You can also 
shop through their special on-line 
"vendor service". 

Another database popular with 
investors, is the Dow Jones News and 



Information Service that provides stock 
quotes (current and historical), profiles 
on public corporations and late- 
breaking news that may affect the 
performance of stocks. These 
databases, due to their size and 
complexity, are handled by more 
powerful mainframe computers. 

Due to the organization and large 
capacities of databases, many 
businesses use them to store any 
information pertaining to their 
business operations, such as employee 
payroll files, accounting records, 
customer files, etc. 

A database, therefore, is the next 
logical step to files in the hierarchy of 
information organization. It is an 
organization of a large number of files 
that may have some inter-related data. 
A small business, for example, may 
have a database consisting of personnel 
files, inventory files, and customer 
files. As you see, these files are not 
related to each other. However, they 
contain information that belongs to 
one company. In order to access records 
in any one of these files, you access the 
database instead of individual files. 
The database program will, in turn, call 
the appropriate file in memory and 
extract the data requested. This type 
of file organization benefits users 
handling a large number of files 
containing related data. Ordinarily, in 
order to access any information in 
these files, you either have to 
remember the file that contains the 
specific data or worse, search through 
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the files one at a time. A database will 
not only provide you access to that 
particular file, but also other files 
that may contain related information. 
All you have to do is specify certain 
keywords and cross references 
recognized by the database. 

Applications of Database 
Management 

We have mentioned the advantages of 
computers in handling large amounts 
of information and their applications in 
database management, especially for 
large businesses and organizations in 
both government and private sectors. 
However, our primary interest in 
understanding the principles of 
database management is its immediate 
applications in our lives. To that 
end, we devote the rest of the article 
to implementation of database 
management systems (DBMS) on 
microcomputers such as the 
Commodore 64. 

Before microcomputers became 
widely available, our record-keeping 
systems commonly consisted of either 
a stack of 3x5 index cards or a cabinet 
full of file folders. Each card or file 
contained information about one of a 
group of similar items [a magazine 
article perhaps, or a customer with 
whom you correspond) and was filed in 
ascending numerical or alphabetical 
order. 

There are several limitations to 
such a filing system. First, the retrieval 
of specific records from, say, an index 
card file, can only be made at one level,- 
that is, if the cards containing a mailing 
list are arranged in alphabetic order by 
the client's last name, then you can 
only access them by last name. If you 
wish to access selected cards by a 
specific city or zip code, you will have 
to search the whole card file. This also 
makes record updating very tedious. 
Another disadvantage is obvious: you 
can not, through such a filing system, 
print out a list of all, or selected, 
records. 

The card index files are most 
popular in libraries. They get around 
some of the above limitations by 
maintaining three index files for each 
publication (subject, author and title) 
and using lots of cheap labor | students). 

The availability of Database 
Management Systems (DBMS) on 
microcomputers has made possible the 
storing of a wide variety of information 



on floppy diskettes, thus eliminating 
the need for 3x5 card files, large filing 
cabinets and hours of labor. 
Information in these files may be 
indexed in many ways, all of them 
defined by you. Furthermore, you may 
quickly select and retrieve any records 
from file at any time. You may also 
print records in a report format. The 
fact that these records are maintained 
on disk files also makes them much 
faster and easier to update than a card 
index file. Some sophisticated 
programs also allow the merging of 
records with text files. This feature is 
especially useful for creating 
personalized form letters; you can 
merge a standard letter with many 
addresses and the computer will 
automatically print out letters, each 
with the appropriate address. A 
calculator function, available in a few 
programs, even allows you to perform 
arithmetic and logical operations on 
records containing numeric data. 

The applications of database 
management systems extend much 
further than the examples cited above. 
You may store any type of information 
that you want by creating your own 
fields (see definition below). The 
program will let you search through 
that information, sort it in any order 
and generate a list of any or all records 
in that database. For example, let us 
assume that you have created a 
database of your customer accounts in 
the United States. You can now 
generate a list of your most valued 
accounts in the entire U.S., or all 
accounts in a specific area. 

Another DBMS special feature 
mentioned above is the calculator 
function. Using this feature, you may 
perform calculations on parts of your 
records. This is helpful when you wish 
to update balance owing in your 
customer accounts. The calculations 
may be performed on all or selected 
records. 

In addition to maintaining 
customer accounts and mailing lists, 
DBMS are also used for other 
applications such as stock records, 
inventories, contract records, student 
records, sales ledgers, invoices, 
personnel records, etc. 

In the next section, we will suggest 
some important factors to be 
considered when you select a database 
management program for your 
Commodore 64. We will also provide 
brief reviews of 15 DBMS programs 



currently available for the C-64. 

There are many factors that you 
might consider, when selecting a 
particular DBMS for yourself. The 
most important is its application. 
Many programs are available, at prices 
starting at $25-$30, and going to $150 
and above. Some of these are general 
purpose programs, whereas others are 
specifically designed for one 
application. A mailing list, for 
example, is a DBMS designed to 
maintain a list of names and addresses. 
Similarly, there are DBMS designed to 
aid teachers in keeping track of student 
grades and attendance. If you only need 
a DBMS program to maintain, for 
instance, a relatively simple mailing 
list or inventory file, then the price vs 
performance ratio may be an important 
consideration. If, however, you need 
some sophisticated features in a 
DBMS, then an advanced DMBS 
system costing $100 to $150 may be a 
good investment. In order to help you 
evaluate these programs, with respect 
to your applications, we will present a 
list of criteria that will prove to be 
useful. These criteria may be used to 
compare the available programs to 
determine the price vs performance 
ratio of each, and perhaps select the one 
that is the best buy. These criteria are 
as follows: 

Start-Up Options: When you first load 
and execute a DBMS program, it offers 
(via the main menu] a variety of 
options. Using these options, you may 
configure the system peripherals from 
within the program. These options may 
involve printer set-up, DOS 
commands, screen background/text 
color changes, etc. 

Printer set-up, for example, will let 
you set up the program for the 
particular printer that you have (NEC, 
Diablo, Spinwriter or Centronics-type 
parallel). 

DOS commands refers to accessing 
the functions and commands of the 
disk operating system from within the 
program. This enables you to format a 
diskette or obtain the disk directory 
without exiting the program. 

Changing screen background /text 
colors is useful for getting the best 
contrast between the background 
screen and the text for improved 
readability. Although there are up to 
256 color combinations available on 
the Commodore 64 (sixteen 
background and sixteen text colors!, 
only a few allow optimum readability. 
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File Structure and Specifications: The 

efficiency of a particular DBMS in 
storing and retrieving data from a file 
depends primarily upon the file 
structure used. Relative files and 
random access files provide the fastest 
data storage and retrieval. Relative files 
have the added advantage that the 
record length may be altered. Records 
that are stored in sequential files, 
however, are only accessible in the 
order in which they are stored, so the 
last record entered into the file will be 
the last record accessed. In order to 
implement DBMS functions such as 
sorts and searches in sequential files, 
the data has to be loaded into memory 
completely. This restricts the size of 
the file (due to limited memory 
available in the computer] and makes it 
less versatile. Updating sequential file 
records is very time-consuming and 
tedious. Most good quality DBMS, 
therefore, use relative or random access 
files to handle record storage. 

Specifications refers to the 
limitations a program imposes on the 
file and record structures you can 
create. For example, a program may 
allow a maximum of twenty-five fields 
per record and thirty characters per 
field in each record. If you wanted to 
use that program to record a mailing 
list of customers, these specifications 
may be sufficient. But if you want to 
store abstracts of magazine articles, 
you may not have enough space. If you 
have a specific application in mind, 
you will find it easier to choose a 
particular database management 
system. Otherwise, the more versatile 
a particular program is, usually, the 
more favorable it will be with respect 
to general applicability. 



Advanced Data Handling: This refers 
to features such as "sorts" and 
"searches" that are available in most 
programs. The sort feature allows you 
to arrange the records in your database 
in a number of ways. You can sort a file 
in either alphabetic or numeric order. 
You may use one or more fields to sort 
your data. For example, if your 
database consists of mailing addresses, 
by using the advanced sort feature you 
may arrange that list in an alphabetical 
order by customer's last name or by 
city. You may also want to rearrange 
the same list in numeric order by the 
zip code. The search feature lets you 
look into your data base for specific 
records. You can define the criteria by 



using "conditional" statements (such 
as IF Last Name = Smith OR City = 
New York) and the program will 
automatically search for records that 
match the criteria defined in the 
conditional statements. Sorts and 
searches may be performed at one or 
multiple levels. 

Another feature available in most 
advanced DBMS is the ability to set up 
calculated fields in your database. This 
allows you to perform mathematical 
operations on specified fields of your 
database file jsuch as adding tax to the 
price of a stock item or averaging 
student grades). In many cases, you can 
use BASIC'S mathematical operators 
for your formulas for the calculated 
fields. 

Report Generator: A useful function of 
a DBMS is its ability to generate user- 
defined reports which may contain a 
few or all of the records in the file. The 
reports may be organized as a table or a 
listing, and the fields may be 
positioned anywhere on the paper. This 
flexibility in defining the report format 
makes a program versatile in its 
applicability. You can print mailing 
labels or get a simple listing of a few 
names and addresses. You can also 
print selected fields from each record to 
form a comparison chart. A good 
database system will support many 
different types of printer configurations 
and print formats. 

Special Features: In this category, we 
have included the various features of a 
program that either add to its 
performance and applicability or make 
it outstanding in comparison with 
other similar programs. For example, a 
DBMS might feature an integrated 
word processor and a programmable 
calculator. This particular package may 
be of great value if you plan to use your 
DBMS for creating personalized form 
letters or keeping track of inventories. 
Another system may be designed for 
storing bibliographies. Its use is 
therefore limited to a specific 
application. 



Glossary 

The following terms are most 
frequently encountered in the manuals 
of database programs: 

Add Fields: Suppose you have created a 
database of names and addresses of all 



your employees. Now you want to add 
another field (date of birth or starring 
date on the job) to this file. Some 
programs will not allow you to add a 
field to the pre-existing file. In this case 
you will have to start all over again, 
create a new file and enter all the 
records. The ability to add fields to a 
file is a useful feature that very few 
programs offer. With most DBMS, you 
must design the file structure very 
carefully, since you may not be able to 
add more fields to your file. 

Browse: This feature, available in 
most database management systems, 
allows you to look at the records in a 
file sequentially, starting with the first 
one. This 'browsing' may also be 
performed in a reverse order (i.e., if you 
are currently working with the 100th 
record and you want to view the 
preceding few records, then you may 
browse in a descending order). 

Calculator: This is a useful feature in a 
database management system. It lets 
you perform arithmetic calculations on 
the numeric data types in your records. 
The types of calculations that you can 
perform vary from program to program. 
The feature, however, adds to the 
versatility of the DBMS in its 
applications. 

Conditional Statement: This 

statement consists of logical operators 
(such as IF, THEN, GE, LE, EQ) that 
may be used to select specific records 
from a database. For example, you may 
use a statement like, "IF last name EQ 
Smith AND City EQ San Francisco, ' ' to 
tell the computer to select only records 
which have "Smith" in the last name 
field and "San Francisco" in the city 
field. 

Database: A database is a collection of 
information organized in the form of 
records. It may be a list of customers' 
phones and addresses or an inventory of 
items in stock. The term database is 
also commonly used in relation to large 
information networks such as the 
Source or the Dow (ones News 
Retrieval service. 

Database Management System: Often 
abbreviated DBMS; refers to a 
collection of computer programs that 
facilitate the creation and use of a 
database in the form of a filejsl. It is an 
electronic filing system that offers 
efficiency in data storage and retrieval. 
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Editing: Once you have entered your 
records in a file and want to update a 
specific record or you entered some 
information incorrectly and want to 
correct it, you will be working in the 
editing mode of a DBMS. The manner 
in which this mode is implemented in 
each program and the efficiency with 
which your are able to update your 
records is considered here. 

Field: A field is a specific data type. 
This may be the book title in a library 
card catalog, or a zip code in a mailing 
list. A record consists of many inter- 
related fields. Information within a 
field may or may not be identical 
between records. For example, in a file 
containing a mailing list, each record 
might contain five fields: name, street, 
city, state and zip code of clients. If two 
clients live in the same block, their zip 
code will be the same; therefore, the 
information in those fields will be 
identical in the respective records. 
Fields may be used to perform sorts and 
searches within a file, although some 
DBMS will search only on key fields. 

File: A collection of records on disk 
that are saved under a unique name. 
The records consist of identical data 
types (fields). For example, you may 
have a file containing a list of vendors 
that manufacture software for the 
Commodore 64. All records in this file 
will have identical field structure (i.e., 
all records will contain the name and 
address of the vendor and the product 
that they manufacture). 

Function Keys: The Commodore 64 
has four undefined, programmable keys 
on the right side of the keyboard. These 
keys are often referred to as the 
function keys. By using these keys in 
conjunction with the shift key, you can 
actually perform up to 8 functions in 
your program. The function keys add to 
the ease and efficiency of using the 
features of a certain program. For 
example, you can use the function keys 
to select various menu options of a 
program. Without them, you would 
normally have to physically type in 
each option. 

Help Scieen: Some programs display a 
list of commands and functions to help 
you select the right command for a 
specific function. This way, you are not 
forced to memorize all the commands 
of the system and their specific 
functions. This is referred to as a help 
screen. 



Key: A key is an identifier consisting 
of one or more fields. It is used to sort, 
search and format output of desired 
data elements. If you have a database of 
sales records, for example, then you 
may identify one or more fields 
(salesman, product name, etc) in this 
database as key fields. This will enable 
you to sort or search the entire database 
for specific records by establishing 
criteria using these key fields. Some 
DBMS will allow searches only on key 
fields, while others will search for non- 
key fields with a slower process. 

Menu-Driven: Many DBMS packages 
display the master menu when the 
program is first executed. Selection of a 
function or option from the master 
menu results in the display of another 
menu that contains more detailed 
features of that particular function. 
Such a system or program is called 
menu-driven. 

On Screen Prompts: These are the 
prompts that a program displays on the 
monitor screen every time it requires 
you to perform a certain task such as 
inserting a new disk or change printer 
paper, etc. These prompts are very 
helpful since they do not require you to 
memorize every step that you go 
through during the program execution. 
The program keeps you informed of the 
next step and any inputs that it needs 
from you. 

Random Access File: A type of disk file 
that allows you to directly access 
records through the program by 
specifying the drive, track and sector 
number. These files are not given 
names and do not appear in the disk 
directory. 

Record: A record is a collection of data 
items (fields). In a personnel file, for 
example, the information on each 
employee is considered a record. The 
maximum number of records that a 
database may contain is limited by the 
size of each record and available space 
on a diskette. 

Relative Files: These are similar to 
random files, except that the files are 
given unique identifiers (file names) 
and the record length in the file is 
alterable. A relative file may contain up 
to 720 records. 

Report: A report is a user-defined 
printout (or hard copy) of selected 
information in the database. Many- 



different kinds of reports may be 
generated by a DBMS such as lists, 
forms, tables, etc. 

Search: This function allows you to 
search a file for specific records that 
you have defined with conditional 
statements. 

Security: A feature available in some 
DBMS that allows you to restrict 
access to those with a password. 

Sequential Files: A file that 
sequentially stores data on disk. Access 
to data is made in the same order each 
time (from the first element in the file 
to the last element in the file). This 
type of structure makes searches or 
record updating very time-consuming 
and tedious. 

Sort: This is a function (available in 
some DBMS) that allows you to 
rearrange the records in your database 
alphabetically or numerically. You 
may also be able to select (using 
conditional statements) the records to 
be sorted instead of sorting the whole 
file. 

Spreadsheet Features: Some DBMS 
have built-in features which allow you 
to build a spreadsheet from selected 
database records. 

Start-Up Options: These are the 
options available to you through the 
program when you first load and 
execute it. The options are displayed 
through the main menu. They may 
include printer set-up, disk 
initialization, color adjustment, etc. 

Word Processor Interfacing: Some 
DBMS allow you to create a file from 
the database which can be further 
processed by a word processor. 



Next Month 

Part II of this article will deal with 
specific database management systems 
available for the Commodore 64. 

Acknowledgement 

Some of the material in this article is 
based on work done by the author for: 

The Commodoie 64 Buyer's Guide, 
by Gary Phillips, Terry Silveria and 
Sanjiva Nath, published by the R. I. 
Brady Publishing Co., July 1984. 



No. 76 ■ October 1984 



MICRO 



29 



BASIC/ML Data Transfer 



by Mark 'Jay' Johanson 
Germantown, Ohio 



»»»»»>« 



■^<^ r % % * * 



■2Z*2tt*ZZ23ZZ2&» 3 Z * l: 3t i.Z*ZZ2ZiZi&tZZ&i?ZZ:iZZtZ 



^Fj^t^fc^V-* 



W**V**>'V'V'VV*-«V 



While writing programs using a BASIC 
interpreter is very easy and convenient 
(or at least, easier and more convenient 
than most other methods), I am sure 
that I am not alone in the discovery 
that BASIC programs sometimes run 
extremely slow. The obvious alter- 
native is to use machine language, but 
writing in machine language, even 
with the aid of an assembler, is 
significantly more difficult than 
writing in BASIC; sometimes it can 
become overwhelming. 

A common solution to this 
dilemma is to write machine-language 
subroutines into your BASIC program, 
using BASIC for the bulk of the 
program because of its convenience, 
but using machine language for a few 
critical routines for the sake of speed, 
choosing routines for which ML will 
give significant performance im- 
provements. While such a scheme can 
be very effective, there are several 
problems (opportunities?) which must 
be overcome. It is my purpose here to 
address one particular problem in- 
volved in such programs: transferring 
data between the two languages, 
specifically on the Commodore Vic-20 
and 64. While users of other machines 
may be able to make use of some of the 
basic principles that I will discuss here, 
many of the details are, unfortunately, 
tied to the workings of Commodore's 
BASIC interpreter and operating 
system. 

In the discussion which follows I 
assume that the reader has some 
knowledge of 6502 machine language. 
As an aid to comprehension, in all my 
sample programs, I include the 
assembler equivalent of any machine 
language code as REMarks following 
the POKE values. As it is not my 
purpose here to discuss the question of 
where to locate an ML routine in 
memory, in these examples I will 
simply put my ML routines (and data] 
in the cassette buffer. 



A Number of Techniques are Presented to 
Transfer Data Between BASIC Programs 
and Machine Language Subroutines 



POKEing Along 

The most obvious way to make 
BASIC'S data available to machine 
language is via the POKE statement 
and, likewise, data can be retrieved by 
BASIC with a PEEK function. If you 
have been using machine language 
routines you are probably familiar with 
this technique, so I will only discuss it 
briefly here. 

In order to use this method, it is 
only necessary that you decide on some 
specific memory location which is to 
hold the data and then cause both 
languages to access it. Program 1 
demonstrates this by reading in a 
number using BASIC, passing it to a 
machine language routine which adds 
two to it and then using BASIC again to 
print out the sum. (And before you 
point out that this is a totally inane use 
of machine language, let me hasten to 
add that it is by no means intended to 
be a useful program: it is just a 
demonstration.) 

Remember that POKE values are 
limited to one byte, i.e. thru 255. A 
Commodore BASIC integer is two 
bytes, so to allow for a full range of 
integer values we must use something 
more like Program 2. This begins to 
illustrate some of the problems with 
this method of transferring data: if we 
want to pass more than one byte things 
begin to get rather involved. 

This method has the advantage of 
being straightforward and general, but 
as the amount of data to be passed 
becomes large, all the PEEKs and 
POKEs can become very tedious. 
Furthermore, the POKE is one of the 
slowest instructions on the 
Commodore, so if you have a lot of 
them, they can slow your program 
down. 



Using USR 

A second method of transferring data 
involves the USR function. This 
function is seldom used but can be very 
handy in certain situations. Before 
using it you must first POKE the 
address of the machine language 
routine into locations 1 and 2 on the 
Vic-20, locations 785 and 786 on the 
C-64, in the standard low-high format, 
i.e. 

POKE 1,AD AND 255 
P0KE2,INT(AD/256) 

(for the Vic). It can then be used just 
like any other function, ranging from a 
simple A = USR(B) to including it 
within a complex expression and, just 
as for any other function, the value 
within the parentheses may itself be an 
expression. 

When the function is used within a 
BASIC statement, control will be 
passed to your machine language 
routine in a manner similar to what 
happens when you use a SYS 
statement, and control will be returned 
to BASIC when your routine executes 
an RTS instruction (or more correctly, 
when it executes one more RTS 
instruction than it has fSR in- 
structions). But when the ML routine 
begins, BASIC will have placed the 
value found within the parentheses 
(the result of the computation if this 
was an expression) as a floating point 
number in locations 97 thru 101. When 
your routine finishes, it should place a 
floating-point value in this same 
location: this number will be used as 
the result of the function. For example, 
if you had the BASIC statement: 

X = 2*USR(A/B+2)-7 
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then, when your ML routine was 
called, the value in locations 97-101 
would be the result of the computation 
A/B + 2. If your routine deposited the 
number 5 into this location, then X 
would end up being assigned the value 
2*5-7, or 3. 

If you wish, you may work directly 
with these floating-point values. 
Unfortunately, floating-point numbers 
are very difficult to work with — 
personally, aside from a couple of 
demonstration routines to prove to 
myself that I could do it, I have never 
used them. However, Commodore has 
graciously provided us with conversion 
routines: a floating-to-fixed routine at 
location 53674, and fixed-to-floating at 
54161. Conveniently, both these rou- 
tines use 97 thru 101 as the location for 
the floating-point number, the same 
location accessed by USR. They use the 
A and Y registers for the integer value, 
with the most significant byte in A and 
the least significant in Y. (According to 
the Vic 20 manual, they use memory 
locations 20 and 21 for the integer 
value. Unfortunately, this does not 
appear to be the case. Numbers do 
appear there whenever BASIC does an 
integer conversion, but these locations 
are not accessed by the routines 
mentioned above. Perhaps there is 
some other routine which moves 
values between A:Y and 20-21 but, as 
this is a relatively trivial operation, I 
have not bothered to look for such a 
routine within the operating system.) 

Thus, all the ML routine must do 
upon execution is execute the floating- 
to-fixed conversion with a JSR 53674, 
do whatever work it desires with the 
integer value which will now be in A:Y 
and then, when it is finished, put the 
desired return value in A:Y and execute 
the fixed-to-floating routine with a JSR 
54161. This is demonstrated in 
Program 3 which, again, will simply 
add two to the entered number. 

The major advantage of the USR 
function is that it makes your BASIC 
program simpler, faster and more 
readable. It is not necessary to do 
cumbersome PEEKs and POKEs to 
move the data around and the resultant 
value of the function can be used 
directly in a more complex formula 
without any intermediate steps. It does 
require two extra instructions in the 
ML routine — the JSR's to do the 
conversions — but this is a small 
penalty and, for that matter, these- 
routines end up putting the value into 
registers, which you would probably 
have taken a couple of instructions to 



do anyway. A bigger drawback is that 
you can only get one value into the 
function and if you want to use more 
than one USR routine in the same 
program you may end up having to 
continually alter which one is 'active' 
by POKEing values into the USR 
vector; that destroys the advantage of 
not having to do POKEs to get the data 
in. In short, don't try to use USR for 
every ML routine you ever write from 
now on,- USR is only of value in certain 
limited situations. But when it is 
helpful, it can make your program 
much more elegant and slightly faster. 

Make-Believe Registers 

I stumbled upon a third method of 
transferring data between BASIC and 
ML almost by accident. I only recall 
seeing it used by someone else once, 
and in that instance the writer included 
it in a program without explanation. 

In the memory maps found in the 
Vic-20 and C-64 manuals, for locations 
780 thru 783 one finds the cryptic 
notes, 'storage for 6502 A register', 
'storage for 6502 X register', etc. I 
found no further explanation in the 
manual of what these are for, so one 
day I became curious about them and 
tried some experimenting which led 
me to discover this useful fact: 
whenever you use a SYS statement in a 
BASIC program, before control is 
transferred to your routine the system 
loads the registers with the values 
found at locations 780-783; when your 
routine exits, before control is returned 
to BASIC the system stores the values 
of the registers at these locations. 

At first glance, this feature may 
seem to be of only marginal value. 
Instead of saying POKE 828,N before 
calling your ML routine and then 
having the ML routine begin with a 
LDA 828, you could simply say POKE 
780, N and then when your routine 
began the desired value would be 
waiting in the A register. So big deal, 
we've saved one instruction. A 
somewhat more useful application 
would be for an ML routine to leave 
data in the registers; the next time this 
routine is executed the registers will 
appear to have been unchanged by 
anything BASIC may have done in the 
meantime, because the system will 
have saved off the registers when it 
finished and then restored them with 
the same values when the routine was 
re-entered (assuming neither the 
BASIC program nor some other ML 



routine had modified locations 
780-783). Still, this would only save us 
from having to do some POKEs. 

However, there is one situation 
where this feature can be quite useful, 
namely, when we want to use one of 
the kernal routines from within a 
BASIC program. This is best illustrated 
with an example. Commodore BASIC 
includes no cursor positioning 
command. Thus, if you want to plant 
the cursor at a specific location on the 
screen using BASIC, about the best you 
can do is something like Program 4, 
using 'home' followed by variable 
numbers of 'down's and 'right's to get 
the cursor to the desired location. This 
example creates a string with the 
maximum number of cursor movement 
keys you can use (on the Vic-20], and 
then does LEFTS' s on them to get the 
desired number. For demonstration 
purposes, it simply asks for a row and 
column number, prints an asterisk at 
that location and then waits for any key 
to be struck to tell it to clear the screen 
and repeat the process (indefinitely). 

But this is inefficient and inelegant. 
Hope appears when we note that the 
kernal does have a cursor positioning 
routine, beginning at location 65520. 
However, this expects the row and 
column to be in the X and Y registers 
respectively, and BASIC cannot 
directly modify the contents of the 
registers. (The BASIC interpreter is 
using the registers constantly while 
executing our BASIC program, so even 
if BASIC did include an instruction that 
modified a register, the inserted value 
would quickly be overwritten. J Thus, it 
would appear that we are forced to pass 
the desired row and column to an ML 
routine which will actually load the 
registers and execute the call. An 
example of this is given as Program 5 
which performs the same task as 
Program 4, but using the kernal plot 
routine instead of strings of cursor 
control characters. Note that, even 
though the ML routine is trivial, the 
program still has to go to a certain 
amount of trouble to load and execute 
it. Perhaps this is not a terribly heavy 
price, but there is a better way. 

Program 6 uses the location 780-783 
feature to call the kernal plot routine 
from BASIC without the need for any 
'ML interface routine'. It performs the 
same function as Programs 4 and 5, but 
note that actually doing the plot takes 
only four statements: three POKE'S and 
a SYS. (The third POKE is needed 
because the plot routine can actually 
perform two functions: planting the 
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cursor at a given location, or telling you 
where the cursor is currently sitting. It 
decides which function to perform 
depending on the contents of the carry 
flag, which we here set to zero by 
means of the third POKE. This will also 
set all the other flags to zero, but, as we 
don't care about their values, it's 
easiest to set them all to zero and avoid 
any possible confusion.) 

As you can see, while it is unlikely 
that this facility would be of any help 
in passing data into your own routines, 
it can greatly simplify the use of 
routines from the kernal. By the way, 
note that all of this works with the SYS 
statement; it does not work with USR. 

BASIC'S Backyard 

Someone might reasonably ask, "Why 
must we make a copy of the data to 
pass to an ML routine? Why not let the 
ML routine use BASIC'S variables di- 
rectly, in the same locations in which 
BASIC actually stores them for its own 
use?" This thought leads to a technique 
which is more complex than those I 
have discussed previously, but which is 
extremely efficient, especially when 
there is a great deal of data to be passed. 

The obvious hurdle to be overcome 
here is finding where BASIC stores its 
variables. We could investigate where 
the variable table is located and how it 
is laid out and then develop a routine to 
find any desired variable, but this is not 
necessary. BASIC has to do that work 
itself all the time, so we can simply let 
it do this for us. 

If you look at a memory map you 
will see that locations 71 and 72 are 
described as 'current variable address'. 
Using this clue I experimented a bit and 
discovered that these two bytes always 
contain the address of the last variable 
that you have used in your piogram. 
Thus, if you code a line such as N = 0: 
POKE 251,PEEK(71|: POKE 
252,PEEK(72], you will put the address 
of N into locations 251-252. (Note that 
if you entered N = 0: A1=PEEK[71): 
A2=PEEK[72] you would not end up 
with the address of N in Al and A2, 
because by using two more variables 
you will have overlaid the previous 
address. You must avoid using any 
other variables until you have copied 
the address into a safe place. This 
essentially means that you must POKE 
it somewhere, as that's the only way 
(that I can think of) to move data 
without using a variable.) If you 
execute a statement such as this at the 
beginning of a BASIC program and stow 



the variable address in some con- 
venient location, an ML routine could 
refer to that variable from then on. For 
an elementary variable, it is not 
necessary to redo the look-up as 
Commodore's BASIC will never move 
a variable once it has been created (an 
array, however, may be moved). 

The next issue to be considered is 
exactly what you will find at this 
address. This depends on the variable 
type. If it is a floating-point number, at 
the given address will be the five byte 
floating-point value. As I mentioned 
earlier, floating-point numbers are 
difficult to work with using machine 
language and so I will dispense with 
any further discussion of them here. 

More useful are integer variables. 
For these the address is that of a two- 
byte integer, with the most significant 
byte stored first, followed by the least 
significant byte. Note that this is the 
reverse of the order normally used on 
the 6502. (I've forgotten this and 
slipped up several times.) 

Program 7 uses this technique to 
perform the same dull 'add 2' 
operation. A few points are worth 
comment here. The most straight- 
forward way to use the variable address 
is to store it somewhere on page zero 
and then use the (addr), Y addressing 
mode to access the data. For this 
example I have put it at locations 251 
and 252, two of the four page zero 
locations which Commodore promises 
that BASIC will never disturb. Four 
bytes is only enough room to store two 
variable addresses permanently, so in 
real life you would probably have to 
store the address elsewhere and then 
move it to page zero when it is needed. 
This is demonstrated in Program 7B. 

While the work that must be done 
in BASIC is no more involved than that 
required for any other method, the ML 
routine does need several extra in- 
structions to find the variable. If your 
routine is short and only uses a few 
bytes of data, this extra work is 
probably not worth it. As your routine 
becomes larger a few extra instructions 
become less significant (as a per- 
centage), and, if you must pass a lot of 
data back and forth, this technique lets 
the ML routine do all the work rather 
than BASIC, which is a much more 
efficient system. 

Speaking of the amount of data to be 
passed, consider the following: An 
integer occupies two bytes and a 
floating-point number 5, but a string 
variable may take up to 255 bytes. To 
try to pass this much data to an ML 



routine by copying it with POKEs 
would be extremely cumbersome; this 
is where you would save the most by 
working on the variable directly. 
Program 8 demonstrates this with a 
routine to examine a string and replace 
every occurrence of a dollar sign with a 
pound sign. (Which is about as useful 
as reading in a number and adding two 
to it.) For string variables, the address 
found in locations 71-72 points to a 
three byte area containing first a one- 
byte length value and then a two-byte 
address of the actual string. Thus we 
must follow two levels of indirection to 
get to the actual data; the first address 
points us to an area containing, not the 
data itself, but rather another address 
pointer to follow. Note that while the 
address of this three-byte area will 
never change during the execution of a 
program, the second address, the ad- 
dress of the string itself, will change 
everytime BASIC modifies the string, 
as well as on other occasions when 
BASIC does its 'garbage collection' to 
clean up unused areas in string space. 
So even if you don't modify the string, 
don't count on it staying put. Have the 
ML routine reload this second address 
every time it executes. 

There is one caution to be borne in 
mind when modifying string variables 
in place; while you may freely change 
the contents of any byte in the string 
and you may make the string shorter by- 
altering the length value, you should 
definitely avoid trying to make the 
string longer, as you probably have no 
idea what may happen to be sitting in 
the space following the present con- 
tents of the string. Usually this will be 
another string variable and you 
normally don't want to destroy other 
variables. While it is possible in 
principle to create a dummy variable 
from which you will take the needed 
space, you would have to be careful 
that the garbage collection routine did 
not get invoked at the wrong time and 
move your variables in relation to each 
other. I have found it far more practical 
to let BASIC either do all the 
lengthening (by concatenating strings 
together) or to add a bunch of dummy 
characters to the end of the string so 
that the ML routine need only shorten 
it by the number of added bytes that it 
decides it doesn't need. For example, 
before executing the ML routine, use 
BASIC to add 10 spaces to the end of 
the string. If the ML routine then 
decides that six extra spaces were 
needed, it reduces the length by the 
difference, or four bytes. 
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I tend to prefer this 'in-place' 
method of data transfer because of its 
'cleanness'; the BASIC program isn't 
cluttered up with a lot of POKEs, but 
simply sets variables just like it would 
before a GOSUB. But if only a couple of 
bytes of data are being passed, or if the 
ML routine is rather short, then the 
extra ML code required seems 
excessive. 

Parting Thoughts 

Each of the four methods of transferring 



data which I have presented here has its 
own uses. The simple PEEK/POKE is 
good for small amounts of data and 
general 'quick-and-dirty' applications; 
USR is handy when you want an ML 
routine to produce a result which will 
be used in an expression, or when the 
input to it is the result of an expression,- 
the register storage area is convenient 
for setting up calls to kernal routines; 
and working directly in BASIC'S 
variable area is a help when there is a 
large amount of data to be passed, 
especially string variables. 



I don't doubt that other techniques 
could be found with their own par- 
ticular advantages. It's good to have a 
variety of techniques at your 
disposal — just because something 
works well in one situation, don't 
assume that that is all you'll ever need. 
A monkey wrench is a handy tool: it 
can be used on bolts of almost any size 
and in a pinch you can use it as a 
hammer or a crowbar. But the job will 
be a lot easier if you take something in 
your toolbox besides a monkey 
wrench. 







103 DATA 141,61,3: REM STA 829 


o 


BML 1 


110 DATA 173, 60, 3: REM LDA 828 




120 DATA 24 -.REM CLC 






130 DATA 105, 2: REM ADC #2 


o 
o 


10 REM PROGRAM 1 


140 DATA l4l,60,3:REM STA 828 
150 DATA 173, 61, 3: REM LDA 829 


20 REM TRANSFER DATA WITH PEEKS AND POKES 

30 FOR AD=840 TO 849: READ B:POKE AD, B: NEXT 

110 DATA 173, 60, 3: REM LDA 828 

120 DATA 24: REM CLC 

130 DATA 105,2: REM ADC #2 


160 DATA 105,0. -REM ADC #0 

170 DATA l4l,6l,3:REM STA 829 

171 DATA 172, 60, 3 :REM LDY 828 

172 DATA 173, 61, 3: REM LDA 829 
180 DATA 32, 145,211: REM JSR FLFIX 




140 DATA l4l,60,3:REM STA 828 


190 DATA 96: REM RTS 


o 


150 DATA 96: REM RTS 
200 REM 


200 REM 

205 POKE 1,72:P0KE 2,3 




210 INPUT N 


210 INPUT N 


o 


220 POKE 828, N 

230 SYS 840 

240 PRINT PEEK (828) 


220 N2=USR(N) 
240 PRINT N2 


o 


BML 2 






BML 4 


o 


10 REM PROGRAM 2 






20 REM TRANSFER TWO BYTES WITH PEEKS AND POKES 


10 REM PROGRAM 4 




30 FOR AD=840 TO 857: READ B:P0KE AD, B: NEXT 


20 REM CURSOR POSITIOING WITH DOWN'S AND RIGHT'S 


o 


110 DATA 173, 60, 3: REM LDA 828 


30 R$="{H0ME,D0WN22}" 




120 DATA 24: REM CLC 


40 C$="{RIGHT22}" 




130 DATA 105,2: REM ADC #2 


100 PRINT"{CLEAR}"; :INPUT"R0W,C0LUMN";R,C 




140 DATA 141,60, 3: REM STA 828 


110 PRINT LEFT$(R?,R);LEFT$(C$,C-1);"*"; 


o 


150 DATA 173,61,3: REM LDA 829 


120 GET I$:IF 1$="" THEN 120 




160 DATA 105,0: REM ADC 00 


130 GOTO 100 




170 DATA l4l,6l,3:REM STA 828 




o 


190 DATA 96: REM RTS 






200 REM 


BML 5 




210 INPUT N 






220 POKE 828, NAND255: POKE 829,INT(N/256) 




o 


230 SYS 840 

240 PRINT PEEK(828)+256*PEEK(829) 


10 REM PROGRAM 5 

20 REM CURSOR POSITIOING WITH KERNAL PLOT ROUTINE 


o 




30 FOR AD=840TO850:READ B:POKE AD, B: NEXT 




BML 3 


40 DATA 174, 60, 3: REM LDX 828 
50 DATA 172, 61, 3: REM LDY 829 


o 




60 DATA 24: REM CLC 




70 DATA 32, 240, 255: REM JSR PLOT 




10 REM PROGRAM 3 


80 DATA 96: REM RTS 




20 REM TRANSFER DATA VIA USR FACILITY 


100 PRINT "{CLEAR}"; : INPUT "ROW, COLUMN ";R,C 


o 


30 FOR AD=840 TO 875:READ B:P0KE AD,B:NEXT 


110 POKE 828, R-l: POKE 829,C-1:SYS 840: PRINT"*"; 




101 DATA 32, 170, 209 :REM JSR FIXFL 


120 GET I$:IF 1$="" THEN 120 




102 DATA 140,60, 3: REM STY 828 


130 GOTO 100 
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BML 6 








BML 8 





10 REM PROGRAM 6 






20 REM CURSOR POSITIOING WITH KERNAL PLOT ROUTINE 


10 REM PROGRAM 8 


o 


AND NO ML INTERFACE 


20 REM TRANSFER DATA BY VARIABLE ADDRESS—STRINGS 


100 PRINT "{CLEAR}"; : INPUT "ROW, COLUMN ";R,C 


30 FOR AD=840 TO 874:READ B:POKE AD,B:NEXT 




110 POKE 781,R-1:P0KE 782,C-1:P0KE 783,0: 


40 DATA 160,1: REM LDY #1 




SYS 65520: PRINT"*"; 


45 DATA 177,251: REM LDA (251), Y 


o 


120 GET I$:IF 1$="" THEN 120 


50 DATA 133,253: REM STA 253 




130 GOTO 100 


55 DATA 200:REM I NY 






60 DATA 177,251:REM LDA (25l),Y 


o 




65 DATA 133, 254: REM STA 254 


BML 7 


70 DATA 160,0: REM LDY #0 

75 DATA 177, 251: REM LDA (251), Y 






80 DATA 141, 60,3: REM STA 828 


o 




85 DATA 177,253 :REM LDA (253), Y 






90 DATA 201, 36: REM CMP #'$' 




10 REM PROGRAM 7 


95 DATA 208, 4: REM BNE +4 




20 REM TRANSFER DATA BY VARIABLE ADDRESS 


100 DATA 169,92:REM LDA #' {POUND}' 


o 


30 FOR AD=840 TO 856:READ B:POKE AD,B:NEXT 


105 DATA 145, 253: REM STA (253),Y 




40 DATA 160,1: REM LDY #1 


110 DATA 200: REM I NY 




50 DATA 24: REM CLC 


115 DATA 204,60,3: REM CPY 828 


o 


60 DATA 177, 251: REM LDA (25l),Y 


120 DATA 48, 240: REM BMI -16 


\*J 


70 DATA 105, 2: REM ADC #2 


130 DATA 96: REM RTS 




80 DATA 145, 251: REM STA (251), Y 


200 REM GET ADDRESS 




90 DATA 13 6: REM DEY 


210 N$="":POKE 251, PEEK(71) : POKE 252,PEEK(72) 


O 


100 DATA 177, 251: REM LDA (251), Y 


300 REM DO IT 




110 DATA 105,0: REM ADC #0 


310 INPUT N$ 




120 DATA 145,251:REM STA (251), Y 


320 SYS 840 


o 


130 DATA 96: REM RTS 


330 PRINT N$ 


200 REM GET ADDRESS 






210 NX=0:POKE 251, PEEK(71) : POKE 252,PEEK(72) 






300 REM DO IT 
310 INPUT N* 










32i SYS 840 






330 PRINT N* 
BML 7B 






INTRODUCING 




10 REM PROGRAM 7B 


The EMPRESS 




20 REM TRANSFER DATA BY VARIABLE ADDRESS- 
NOT RELYING ON PAGE SPACE 










30 FOR AD=840 TO 866: READ B:POKE AD, B: NEXT 






40 DATA 173,60,3: REM LDA 828 


MAINFRAME DECISION SUPPORT 




50 DATA 133,251: REM STA 251 


SOFTWARE FOR THE 




60 DATA 173,61,3: REM LDA 829 
70 DATA 133, 252: REM STA 252 


MICROCOMPUTER 




80 DATA 160,1: REM LDY §1 






90 DATA 24 -.REM CLC 


• English Language Front End 




100 DATA 177,251:REM IDA (251), Y 
110 DATA 105, 2: REM ADC #2 


• Mainframe Computing Capability 




120 DATA 145, 251: REM STA (251), Y 


• Command /Menu Driven 




130 DATA 136 : REM DEY 






140 DATA 177,251:REM LDA (251), Y 
150 DATA 105,0: REM ADC #0 


Empress Database Manager 




160 DATA 145,251 :REM STA (251), Y 


available for 




170 DATA 96: REM RTS 


DIMENSION, SAGE, and 




200 REM GET ADDRESS 


other Motorola 68000 based machines 




210 NX=0:POKE 828,PEEK(7l) :POKE 829,PEEK(72) 






300 REM DO IT 






310 INPUT M 


EMPRESSTECHNOLOGY INCORPORATED 




320 SYS 840 


510 KING STREET 




330 PRINT M 


LITTLETON, MASSACHUSETTS 01460 
617/486-9601 
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NEW 128K —MEGA BYTE DUAL DISK DRIVE-80 COLUMN 

COMPUTER SYSTEM SALE! 

HOME • BUSINESS • WORD PROCESSING 




LOOK AT ALL YOU GET FOR ONLY $395* 

® Bl 28 COMMODORE 1 28K 80 COLUMN COMPUTER 
(2) 4023 - 100 CPS - 80 COLUMN BIDIRECTIONAL PRINTER 
(5) 8050 DUAL DISK DRIVE (over 1 million bytes) 
(4) 12" HI RESOLUTION 80 COLUMN MONITOR 

• BOX OF 10 LORAN LIFETIME GUARANTEED DISKS 

. 1 100 SHEETS FANFOLD PAPER 

. ALL CABLES NEEDED FOR INTERFACING 

TOTAL LIST PRICE 



LIST PRICE 

$ 995.00 

499.00 

1795.00 

249.00 

49.95 

19.95 

102.05 

$3717.95 




PLUS YOU CAN ORDER THESE BUSINESS PROGRAMS AT SALE PRICES 



Professional 80 Column 
Word Processor 
Professional Data Base 
Accounts Receivable 
Accounts Payable 



LIST 

$149.95 
$149.95 
$149.95 
$149.95 



SALE 

$94.00 
$99.00 
$99.00 
$99.00 



LIST SALE 

Payroll $149.95 $94.00 

Inventory $149.95 $49.00 

General Ledger $149.95 $99.00 

Financial Spread Sheet $149.95 $99.00 



PRINTER REPLACEMENT OPTIONS 

(replace the 4023 with the following at these' sale prices) 



Olympic Executive Letter Quality Serial Printer 
Comstar Hi-Speed 160 CPS 15V Serial Business Printer 
Telecommunications Deluxe Modem Package 



LIST SALE 

$699.00 $394.00 

S779.00 $499.00 

$199.00 $139.00 



15 DAY FREE TRIAL. We give you 15 days to try out this SUPER SYSTEM PACKAGE) ! If it doesn't meet your expectations, just send it back 
to us prepaid and we will refund your purchase price! ! 

90 DAY IMMEDIATE REPLACEMENT WARRANTY. If any of the SUPER SYSTEM PACKAGE equipment or programs fail due to faulty 
workmanship or material we will replace it IMMEDIATELY at no charge! ! 



Add $50.00 for shipping and handling!! 
$100.00 for Alaska and Hawaii orders. 

WE DO NOT EXPORT TO OTHER COUNTRIES 

Enclose Cashiers Check. Money Order or Personal Check. Allow 1 4 days for 
delivery. 2 to 7 days for phone orders. 1 day express mail! We accept Visa 
and MasterCard. We ship COD. to continental U.S. addresses only. 



ENTERPRIZES ,wE LOvE oufi cus: ° werv 

BOX 550, BARAINGTON, ILLINOIS 60010 
Phon« 312/3*25244 to ordtr 



FLOPPY DISKS SALE *98C ea. 

Economy Model or Cadillac Quality 



LORANl 



CfRHFIED PERSONAL 
COMPUTER DISK 



We have the lowest prices! lorak 



CfRTIHED PtBSOMAt 
COWPUUR DISK 



•ECONOMY DISKS 

Good quality 5 1 /4 " single sided single density with hub rings. 
Bulk Pac 100 Qty. 98<f ea. 

10 Qty. $1.20 ea. 



Total Price 
Total Price 



$98.00 
12.00 



CADILLAC QUALITY (double density) 

• Each disk certified • Free replacement lifetime warranty • Automatic dust remover 

For those who want cadillac quality we have the Loran Floppy Disk. Used by professionals because they can rely 
on Loran Disks to store important data and programs without fear of loss! Each Loran disk is 100% certified (an 
exclusive process) plus each disk carries an exclusive FREE REPLACEMENT LIFETIME WARRANTY. With Loran 
disks you can have the peace of mind without the frustration of program loss after hours spent in program 
development. 

100% CERTIFICATION TEST 

Some floppy disk manufacturers only sample test on a batch basis the disks they sell, and then claim they are 
certified. Each Loran disk is individually checked so you will never experience data or program loss during your 
lifetime! 

FREE REPLACEMENT LIFETIME WARRANTY 

We are so sure of Loran Disks that we give you a free replacement warranty against failure to perform due to faul- 
ty materials or workmanship for as long as you own your Loran disk. 

AUTOMATIC DUST REMOVER 

Just like a record needle, disk drive heads must travel hundreds of miles over disk surfaces. Unlike other floppy 
disks the Loran smooth surface finish saves disk drive head wear during the life of the disk. (A rough surface will 
grind your disk drive head like sandpaper). The lint free automatic CLEANING LINER makes sure the disk-killers 
(dust & dirt) are being constantly cleaned while the disk is being operated. PLUS the Loran Disk has the highest 
probability rate of any other disk in the industry for storing and retaining data without loss for the life of the disk. 

Loran is definitely the Cadillac disk in the world 

Just to prove it even further, we are offering these super LOW INTRODUCTORY PRICES 
List $4.99 ea. INTRODUCTORY SALE PRICE $2.99 ea. (Box of 10 only) Total price $29.90 

$3.33 ea. (3 quantity) Total price $9.99 

All LORAN disks come with hub rings and sleeves in an attractive package. 



DISK DRIVE CLEANER s 19.95 



( Coupon Price $16.95 ) 



Everyone needs a disk drive doctor 
FACTS 

• 60% of all drive downtime is directly related to poorly maintained drives. 

• Drives should be cleaned each week regardless of use. 

• Drives are sensitive to smoke, dust and all micro particles. 

• Systematic operator performed maintenance is the best way of ensuring error free use of your computer 
system. 

The Cheetah disk drive cleaner can be used with single or double sided 5%" disk drives. The Cheetah is an 
easy to use fast method of maintaining efficient floppy diskette drive operation. 

The Cheetah cleaner comes with 2 disks and is packed in a protective plastic folder to prevent contamination. 
List $29.95 / Sale $19.95 * Coupon $16.13 



Add S3. 00 for shipping, handling and insurance. Illinois residents 
please add 6% tax. Add $6.00 (or CANAOA. PUERTO RICO, HAWAII, 
ALASKA, APO-FPO orders. Canadian orders must be in U.S. dollars. 
WE DO NOT EXPORT TO OTHER COUNTRIES. 

Enclose Cashiers Check, Money Order or Personal Check. Allow U 
days for delivery, 2 to 7 days for phone orders. 1 day express mail ! 
VISA - MASTER CARD — COD. 

No COD. to Canada, APO-FPO 



PROTECTQ 



"•( .OmE Ou»CuS?Om(HS, 



ENTERPRIZES 

BOX 5S0, BARRINGTON. ILLINOIS 60010 
Phone 312/3M-5244 to order 



FANTASTIC COMPUTER PRINTER SALE!!! 



COMSTAR T/F 

Tractor 
Friction 
Printer 



* * 



ra 



COMSTAR 



• Lowest Priced, Best Quality, Tractor-Friction Printers in the U.S.A. 
Fast 80-120-160 Characters Per Second • 40, 46, 66, 80, 96, 132 Characters Per Line Spacing 
• Word Processing • Print Labels, Letters, Graphs and Tables • List Your Programs 



** DELUXE COMSTAR T/F 
80 CPS Printer — $169.00 

This COMSTAR T/F (Tractor Friction) 
PRINTER is exceptionally versatile It 
prints 8 ■'," x 11" standard size single sheet 
stationary or continuous feed computer 
paper Bi-directional, impact dot matrix 
80 CPS, 224 characters (Centronics 
Parallel Intertact) 

Premium Quality 120-140 CPS 

10" COMSTAR PLUS+ 

Printer $249.00 

The COM-STAR PLUS+ gives you all the 
features of the COMSTAR T-'F PRINTER 
plus a 10" carriage, 120-140 CPS. 9x9 dot 
matrix with double strike capability for 18 x 
18 dot matrix (near letter quality), high 
resolution bit image (120 x 144 dot 
matrix), underlining, back spacing, left 
and right margin settings, true lower 
decenders with super and subscripts, 
prints standard, italic, block graphics and 
special characters It gives you print 
quality. and features found on printers 
costing twice as much" (Centronics 
Parallel Interface) (Better than Epson 
FX80) List $499.00 SALE $249.00 



tlTl.'J.MII..I.Mi|:|.II-HJ:m.l.Hf.iai.1IIM.!,.|.ff|f 



Premium Quality 120-140 CPS 
1 5 y 2 " COMSTAR PLUS+ 
Business Printer $349.00 

Has all the features of the 10" COM-STAR 
PLUS+ PRINTER plus 15 ! . " carriage and 
more powerful electronics components to 
handle large ledger business forms 1 



(Better than Epson FX 100) 
SALE $349.00 



List $599 



Superior Quality 140-160 CPS 

10" COMSTAR PLUS+ IBM 

IBM Pers/Bus Printer $369.00 

Has all the features of the 10" COM-STAR 
PLUS+ PRINTER 1 It is especially designed 
for all IBM personal computers 1 140-160 
CPS HIGH SPEED PRINTING 100% duty 
cycle, 2K buffer, diverse character fonts, 
special symbols and true decenders, 
vertical and horizontal tabs. 
A RED HOT IBM personal business printer 
at an unbelieveable low price of $369.00 
(Centronics parallel interface) 
List $699 SALE $369.00 



Superior Quality 160-180 CPS 
10" COM-STAR PLUS+HS 
Business Printer $369.00 

The Super Com-Star+ High Speed 
Business Printer 160-180 CPS has a 10" 
carriage with all the Com-Star+ features 
built in 1 The 15'/?" High Speed Business 

Printer is especially designed with more 
powerful electronics to handle larger 
ledger business forms! Exclusive bottom 
feed! (Centronics parallel interface) 
15'/?" printer is also compatable with IBM 
Personal/Business Computers! 15'//' 
Printer List $799.00 SALE $469.00 



OOlympia 



Executive Letter Quality 
DAISY WHEEL PRINTER $379.00 

This is the worlds finest daisy wheel printer 
Fantastic Letter Quality, up to 20 CPS 

bidirectional, will handle 14 4" forms 
width! Has a 256 character print buffer. 
special print enhancements, built in 
tractor-feed (Centronics Parallel and 
RS232C Interface) List $699 SALE $379. 



• 15 Day Free Trial - 1 Year Immediate Replacement Warranty 



For VIC-20 and C0M-64 - $49 00 



PARALLEL INTERFACES 

For Apple computers — $79.00 Atari 850 Interface - $79.00 For ALL IBM Computers - $89.00| 



Add 51 4 50 for shipping, handling and insurance. Illinois residents 
pleos*v>dd6% ton. Add S29 00 lor CANADA. PUERTO RICO HAWAII 
ALASKA APOFPO orders Canadion order* mutt be in U.S. dollors 
WE DO NOT EXP9RT TO OTHER COUNTRIES. 

Entlote Cashiers Check. Monty Order or Personal Check. Allow 14 
days for delivery. 2 fo 7 doyt for phone ordtrt, 1 doy express mail ! 
VISA — MASTER CARD— We Ship COD to U S Addresses Only 



ENTERPRIZES **"«°»°*""m 

BOX 550, BARRINQTON, ILLINOIS 60010 
Phone 312/M2S244 to ardor 



COM-STAR PLUS+ 
Print Example: 



ABCDEPGH I JKLMNOPQRI 
ABCDEFGHIJKLHN0P0R8TUVUXYZ 1234B< 



ITUVWXY 
7B90 



Rational 



Joystick 



Interfacing 



by Charles EngeJsher 
Schenectady, New York 



A 'Bulld-lt-yourself project that lets you explore 
Analog/Digital techniques. 



*^^^^^^^^*^*********+**^^^+^^****^^^*********^^l*0**^***f^^l****t 



Introduction 

Sometimes a seemingly mundane 
project like joystick interfacing can 
hold a few educational surprises. For 
the hardware beginner it provides an 
opportunity to complete a simple and 
useful item that is at the same time 
safe for your Apple and easy on the 
pocketbook. 

More than that, joystick interfacing 
embraces concepts that have widepread 
application in other areas of computer 
hardware: concepts like single-bit A/D 
conversion, the RC time constant, 
efficient use of built-in Apple monitor 
routines, the use of resistive 
transduction as a basis for measuring 
physical quantities and proper software 
scaling of parameters for screen 
display. 

Obviously, this article is more than 
just a description of a simple project. It 
provides a vehicle for introducing 
important hardware ideas to the novice 
as well. 



Analog to Digital Conversion 

In the real world, physical quantities 
vary continuously. A quantity such as 
temperature or position can literally 



assume an infinite number of values, 
even over a narrow range. Digital 
quantities, on the other hand, vary in a 
discrete fashion. Simply put, A/D 
conversion involves translating a 
continuous physical quantity to a 
digital format — into zeros and ones. 

In all versions of A/D conversion 
the physical quantity is first converted 
to an electrical quantity. For instance, 
a thermistor translates temperature 
into a resistance, while thermocouple 
would convert temperature into a 
voltage level. Such transducers are 
really doing nothing more than 
providing an electrical analog of the 
quantity being measured. This analog 
signal could be fed to an amplifier, and 
then to some display device such as a 
meter. 

A/D conversion takes this signal 
one step further by translating it into 
digital form. One way of doing this is 
through multibit conversion, as illus- 
rated in Fig. 1A. You need only supply 
the right analog signal in the proper 
range of voltage (or current), and the 
A/D integrated circuit will output an 
8-bit data word which can then be read 
off the computer data bus. The device 
shown has an "8-bit resolution." It 
provides 256 discrete values — 
00000000 through 11111111 in binary. 
This scheme would be quite adequate 
for temperture measurement between 



the freezing and boiling points of water. 
Resolution would be 1 degree 
Fahrenheit or 1/2 degree Celsius, with 
a short range on either side of these 
points. 

Now suppose you have only a single 
output line for the digital data. As you 
can see from Fig. IB, the output of such 
a "single-bit A/D converter" is a 
simple square wave. This is the 
situation you're presented with on the 
Apple game port analog (paddle) inputs. 
Can you make this singlebit — which 
can be either HIGH/1 or LOW0 — 
represent a whole range of values? 

Time Constants and Oscillators 

Enter the time constant. The solution 
to the problem of single-bit A/D 
conversion is to make the length or 
duration of this square wave vary in 
proportion to the analog signal. The 
principle involves varying the resistive- 
capacitative or RC time constant. 

You're probably familiar with 
mechanical time constants from every 
day experience. Time constants are 
best described in terms of exponential 
rises and falls in some physical 
property of a system, be it velocity, 
volume or whatever. Often, the time 
constant can be used to cause periodic 
or oscillatory motion in the system. 
Swinging pendula, flushing toilets and 
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Figure 1 



plucked strings all have intrinsic time 
constants that determine how fast they 
swing, how quickly they fill and at 
what pitch they vibrate. The RC time 
constant, the basis of most single-bit 
A/D conversion schemes, has the same 
implications for electrical systems. 

The RC time constant determines 
how quickly a capacitor "fills" with 
electrons when a voltage is applied. 
Fig. 2A shows what happens when you 
apply a voltage to a resistor and 
capacitor in series. The time constant 
is equal to the resistance in ohms times 
capacitance in farads. For the circuit 
shown, the time constant |TC) is 1 
second (1 ohm x 1 farad). The charging 
curve is shown to the right of the 
circuit. After two TC's it will be about 
86 percent charged. After three TC's 
the capacitor will be charged up to 95 
percent of the applied source voltage 
(Vs), about .95 volts. 

Fig. 2B shows the case for discharge 
of the capacitor after it has been 
charged to the applied voltage Vs of 1 
volt. In this case it will be about 63 
percent discharged after one TC, 86 
percent discharged after two and about 
95 percent discharged after 3TC's. 
Notice that the percentage figures are 




T.M. 



ORCA/M 



Keep Your Files Safe With 



The Best 6502 Assembler in the World 



INCLUDES ORCA UTILITIES 



ORCA/M 3.5 

One of only two programs to date to earn the AAA rating from 
Peelings II. ORCA Includes a macro assembler with local labels 
and powerful string handling facilities, a link editor, full screen 
text editor, and over 150 prewritten macros. Complete support 
for the 85C02 used In the Apple Ifc Is standard. "ORCA's true 
destiny Is to assemble creations of the greatest sort" (Softalk, 
May 1863). Start yours today! a.a *» _ 

3>/y.yO reg. $99.95 

For Limited Time Only 

ORCA UTILITIES 

How do you make the best 8502 Assembler even better? With a 
complete set of utilities to make programming with ORCA a joy! 



Disassembler 
Symbolic Debugger 
Macro File Qenerator 



Disk Initialize, Copy 
Object Module Scanner 
Global Cross Reference 



$39.95 



reg. $49.95 




65816 ORCA/M 

Chosen by the designers of the 65C02 and 65816, this add-on 
package extends ORCA to handle the new 65816 and 85802 
CPU's. This version supports the 16 bit address bus of the 65802, 
and Is perfect for developmental work on the Apple II. 



$39.95 



reg. $49.95 



■Mat* 

Dealer Inquiries Invited 

Tt1E BytE Works Inc. 

8000 Wagon Mound Drive NW 

Albuquerque, N.M. 87120 

(505) 898-6183 



T.M. 



add $3 for shipping 

New Mexico Residents 

add 4.625% 
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the same for charging and discharging; 
only the "direction" is different. 

The formulae below the two curves 
describe the voltage rise and fall in the 
capacitor in terms of the natural 
logarithm, e, which equals 2.718. Its 
reciprocal is .37. If you measure charge 
or discharge in absolute time T, then 
the term e-T/RC is used. If you 
measure time with respect to the 
number of RC time constants that have 
passed (N), this term becomes (.37-N). 

The key point of all this is that the 
time constant is a basic property of RC 
circuits. If you change either the 
capacitance or the resistance, you 
change the time constant. [At this 
point we're only a few short steps 
away from practical single-bit A/D 
conversion on the Apple, so stay tuned 
a bit longer.) 

Rather than belabor the physics of 
the situation, consider what happens if 
you could attach an RC circuit to an 
active electronic device, one which 
could provide a periodic charging and 
discharging current to the capacitor. By 
connecting a resistor and capacitor to 
one type of integrated circuit you can 
produce oscillations. 

For the device shown in Fig. 3A, the 
output will be a train of square waves. 
The period between successive square 
waves is indicated by "T" in the figure. 
The reciprocal of this period is the 
frequency of the signal. This frequency 
can be varied by changing R or c. In this 
circuit a variable resistor or poten- 
tiometer (technically called a rheostat) 
is illustrated, as this is the easiest way 
to change the frequency of the square 
wave signal. 

The oscillator is not the ideal way 
to achieve single-bit A/D conversion, 
however. One reason is that the output 
frequency of such oscillators (the 555 
timer being one example) does not 
change in direct proportion with 
changes in the resistance. Another 
reason is that the software necessary 
to measure frequency is more complex 
and takes longer to execute than the 
preferred method: the ONE-SHOT. 

One-Shots 

A simplified circuit for the preferred 
method of single-bit A/D conversion is 
shown in Fig. 3B. One-shots produce a 
single square wave pulse when set off 
by a brief trigger pulse and come in 
integrated circuit (ICI form. For many 
commonly available one-shot IC's, the 
duration of the square wave output is 
exactly equal to the time constant, that 



is, the product R x C. Not only that, 
but the variation of the duration of 
pulse width varies linearly with (in 
direct proportion to) the variable 
resistor. 

Single-bit A/D conversion using 
one-shots entails the same steps as that 
for multi-bit conversion: 
1. transduction of a physical quantity 
into an electrical analog — current to 
charge the capacitor in this case, 
followed by 



2. production of a digital output — a 
square wave whose pulse width is 
proportional to the RC time constant 
(PW = RC). 

With the capacitance value held 
constant, the pulse width will be 
proportional to the resistance. 

This is exactly the scheme for A/D 
conversion used on the Apple's game 
port analog, or paddle, inputs. In the 
Apple there are actually four one-shots 
on one integrated circuit, the "quad 
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558 timer" as it is called. Each one- 
shot on this IC is connected to its own 
pin on the game socket, to which in 
turn the user plugs in a variable resistor 
(paddle). Two paddle inputs can be 
paired, with one for screen x-axis and 
one for y-axis. This allows for x,y 
display of a shape on the screen through 
a joystick or similar device. 

The only missing ingredients for 
our joystick project are the details of 
the joystick circuitry and software 
routines used to measure the pulse 
width and display results to the screen. 
These two elements are interrelated 
and will be covered together. 

A Practical Joystick Circuit for 
Apple 

Fig. 4 summarizes the main elements 
in any paddle input A/D conversion 
scheme: the given software, calcu- 
lations for matching time constants 
and the basic circuit. 



Let's look at the software first. 
Apple's PREAD (paddle read) is a built- 
in monitor subroutine which measures 
the pulse width of a square wave. 
PREAD is located at $FB1E (64286 
decimal) in the monitor. It must be 
entered with the paddle number (0, 1, 
2 or 31 in the X-register. This is done 
automatically with the PDL command 
from BASIC, but must be done 
"manually" with a LDX command if 
you are programming in assembler. 

The first step in PREAD is to trigger 
the one-shot so that the square wave 
output is initiated. This is done by 
accessing location $C070 (STA would 
work just well as LDA). The Y-register 
is used as a counter and is set to zero. 
The two do-nothing commands (No 
OPeration] are used to fine tune the 
counting for the first count. 

The body of PREAD is the loop 
beginning at PREAD2. With the paddle 
number in the X-register, PREAD2 
checks the status of the most signif- 



PREAD 



PREAD2 



DONE 



; Trigger paddles 

; initialize counter (Y-register) 

; compensate for 1st count 



LDA $C070 

LDY if$00 

NOP 

NOP 

IDA $C064,X jpaddle # in X-register 

BPL DONE jexit if high bit (D7) is zero 

I NY jotherwise Incr. counter 

BNE PREAD2 ; continue counting 12 msec per cycle 

DEY ; unless counter is full 

RTS ;exit, with value (0-255) in Y. 

MAX PREAD LOOP TIME = 255 CYCLES x 12 microsec/cycle 
= 3060 microsec or 3.06 millisec 

HARDWARE TIME CONSTANT (as is w. 150K pot) = .022 uf x 150K 

= 3300 microsec 

FOR VALUES LESS THAN 150K USE AN EXTRA CAPACITOR C2 
IN PARALLEL WITH INTERNAL CAPACITOR CI : 

TC = (CI + C2) x Rp 
or C2 = TC/Rp - Cl) 

For a 100K pot this becomes: 

C2 = 33M uf/100K - .022 uf 
= .011 uf 



~\r 



TO BIT _J |_ 

□ 7 ON DATA -« 

BUS PW = RC 




Rp O-100K 



Cj = 0.011 mf 



Figure 4 



GAME PORT 
PADDLE INPUT 
(PINS 6,10,7,11) 



icant data bit (D7). If D7 is zero 
(positive number in binary notation), 
then the square wave must have 
returned to zero and you exit PREAD. If 
D7 is binary one, then the Y counter is 
incremented and the count continues. 

However, if Y is incremented past 
$FF (255) it becomes zero; this 
constitutes an overflow and you again 
exit the routine (after decrementing Y 
back to 255). 

The value of the paddle returned to 
the calling routine by PREAD will be 
in the Y-register. The calling routine 
(e.g., in BASIC or assembler] will then 
process this value for display or other 
purposes. 

PREAD takes 12 microseconds, or 
about 3.06 miliseconds for a full count 
of 255. Compare this with the 
maximum hardware RC time constant 
on the paddle. With the standard 150K 
paddle potentiometer provided in an 
Apple paddle and the .022 uf internal 
capacitor on the main board circuitry, 
the maximum TC is about 3.3 millisec, 
roughly 8 percent more than the 
maximum PREAD loop time. This 
excess is a safety factor; the paddle pot. 
could fall a bit short in its full scale 
resistance and still return a full count 
of 255. 

All you have to do is get a surplus 
150K joystick and you're in business, 
right? Not quite. When you go to 
purchase a "bare" joystick, you'll have 
one heck of a time finding one with 
150K pots. (Unless you want to spring 
$50 or $60 for a commercial joystick.) 
Surplus and mail order 100K joysticks 
are readily available for three to five 
dollars, however. 

Obviously, with such a low 
resistance, some capacitance must be 
added to each pot in the joystick in 
order to bring the maximum RC time 
constant up to an acceptable level. A 
value of 3.3 milliseconds for TCmax is 
used, as this duplicates the safety 
margin of Apple joysticks. The circuit 
for one paddle input is given in at the 
bottom of Fig. 4. 

By adding a capacitor, C2, in 
parallel with the main board capacitor, 
Cl, the TC value of 3.3 msec can be 
realized. The capacitances arc simply 
additive in parallel configuration. (The 
small current limiting 100 ohm resistor 
can be ignored.) The calculation for 
this added capacitance is given in the 
figure. For a 100K pot C2 will be .011 
uf. A value of .01 uf is a good starting 
approximation; any additional capaci- 
tance can be added in parallel to this if 
needed. 
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1 - Solderless Breadboard Strip - Radio Shack (Experimenter 300) H£ #276-174 

1 - RIBBON CABLE JUMPER 16 pin — 3 ft. double ended .lumper 

2 - PUSHBUTTONS -- momentary contact, normally open RS #275-1547 

1 - 100K JOYSTICK — Radio Shack #271-1705 

2 - 330 ohm resistors — 220 to 1000 ohm OK 

DISK CAPACITORS -- asst of .001 to .1 microfarad 



+ 5 

SWO 

SW1 

SW2 

STB 



NC 
ANO 
AN1 
AN2 
AN3 



POLO PDL3 
PDL2 PDL1 
GND NC 



/ s v 



By 



=PCy 



Figure 5 



R.,R, = tOOk pots (JOYSTICK) 

C..C7 = .005 lo .01 ml 

Ro.Ri - 560 ohms (NOMINAL! 



The whole circuit and parts list is 
given in Fig. 5. The actual cost of the 
parts used will probably be about $10 to 
$15 dollars. It's best to use a solderless 
breadboard strip (Experimenter 300 
available from Radio Shack) to bread- 
board the circuit before wiring it up in a 
permanent configuration. Plug one end 
of the dual ended DIP (dual-in-line 
package) jumper into the game socket 
on Apple's main board and park the 
other end into the breadboard. You can 
omit the pushbutton switches for the 
initial circuit if you wish. 

Arbitrarily, paddle has been 
assigned as the X-axis paddle and 
paddle 1 as the Y paddle. These 
assignments can always be changed 
later in software if desired. 



Software Scaling 

Once you've installed the circuit on the 
solderless breadboard, you must test it 
out. An easy method entails use of the 
LORES screen, but keep in mind that 
with any screen display there is a dif- 
ference between screen shape and 
joystick execution. Fig. 6 illustrates 
this disparity. 

Assume for the moment that you're 
writing the software to display a 
LORES joystick-moveable screen 
cursor. With a short routine such as 
the one in Listing 1, you'll have a clear 
idea of the values returned as the 
joystick moves about and within its 
circular boundary. If you use the 
maximum values at each edge of X,Y 
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Listing 1 



96 REM 

97 REM PADDLE VALUES 

98 REM 

99 REM 

100 HOME 

110 PX = PDL (0):PY = PDL (l) 

120 PRINT PX,PY 

130 GOTO 110 

paddle excursion (0 and 255), then the 
cursor will never reach the corners of 
the screen. The reason for this is given 
in Fig. 6A. 

Instead, you must be sure to scale 
the values returned from the joystick so 
that the joystick's excursion includes 
the corners of the screen. As an 
example, let's say that the poten- 
tiometer X,Y values returned from the 
upper left hand corner |Px,min and 
Py,min) are 35 and 35, respectively. 
Similarly, assume that the maximum 
paddle values at the lower right hand 
corner are 245 and 245 (Px,max and 
Py,max). This is shown in Fig. 6B. 
Software must convert these values to 
the graphics screen ranges. 
Note: Since you ate bieadboaiding the 
circuit, you should freely change Cx 
and Cy and test the Px and Py values 
returned from Listing 1. Begin with Cx 
and Cy values calculated earlier. If the 
.01 uf values are too high, begin with 
.005 uf and add capacitance in .001 uf 
increments. This will allow you to 
achieve the 240 to 250 range for Px, max 
and Py,max. Once you've empirically 
optimized Cx and Cy values, you can 
proceed. 

In this example we'll develop a 
short equation to convert paddle values 
to mixed LORES coordinates. The 
equation for the X axis for LORES is 
given in Fig. 7. The LORES X value will 
fall in the range of to 39. Sx is the 
scale factor, Px the current value 
returned from paddle-X, and Px,min is 
the value returned from the upper left 
hand corner of the screen. 

The equation for Sx, which depends 
on Px,min and Px,max, is also given in 
Fig. 7. Allow a little "dead space" on 
either side of the extreme points of 
upper left to lower right excursion; this 
improves joystick action, as you don't 
have to jam it at the limit of travel to 
get the max and min values. Dead 
space is illustrated in Fig. 6B by the 
shaded area. Letting Px,max = 240 and 
Px,min = 40, Sx becomes .196 (raised 
up one-thousandth.) 
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= S>(Px-Pl,tnln) 








s, 


Xmax 39 


= 




.196 


P,,m«-P.,min 240-40 




PROGRAM STATEMENT: X = 1NT( 


196 ' 


(P> 


-40)) 




SIMILARLY FOR Y: Y = INT( 


196 • 


(Pr 


-40)) 




Figure 7 









In BASIC format, the equation 
becomes "X = INT(.196*iPx-40JJ" for 
the X-axis. A similar calculation and 
equation is involved for the 
Y-coordinates (0 to 39 also in mixed 
mode). 

The routine in Listing 2 will display 
a LORES "boxel" on the screen using 
the scaling equations and print out the 
paddle values and X,Y coordinates. 

Once you're satisfied with joystick 
operation, you can hook up the circuit 
in Fig. 5 as a permanent installation. 
Use a 16-pin IC socket mounted on a 
piece of perfboard cut to serve as a lid 
for a plastic project box. Radio Shack 
has these materials. Mount the socket 
at one end and the joystick behind it. 
The pushbuttons should be mounted 
on either side of the box underneath the 
socket. You need only to insert the DIP 
jumper plug into this homemade 
joystick and you're in business. 

Listing 2 



9b 
97 


REM 

REM LORES JOYSTICK DEMO 


98 
99 




REM 


100 


HOME : GR 


110 


PX = PDL (0):PY = PDL (l) 


120 


X = INT (.196 * (PX - 40)) 




Y = INT (.196 * (?Y - 40)) 


130 


IF X < THEN X = 


140 


IF X > 39 THEN X = 39 


150 


IF Y < THEN Y = 


160 


IF Y > 39 THEN Y = 39 


170 


COLOR = 0: PLOT XT,YT 


180 


COLOR = 1: PLOT X,Y 


190 


XT = X:YT = Y 


200 


PRINT ' 'PX/X: ' ';PX; "/"; 




X/'PY/Y: ";PY;"/";Y 


210 


GOTO 110 



Summary and Suggestions 

At this point you know how to 
construct your own joystick for about 
1/4 the price of a commercial unit. If 
you followed the sequence up to joy- 



stick construction, you've learned a bit 
about the RC time constant, one-shots 
and time interval measurement from 
assembly language — that is, about 
single-bit A/D conversion using a 
resistive transducer. For the example 
shown, the conversion was from 
angular position (a continuous real 
world quantity) to LORES coordinates 
| digital quantity). Below are a few 
project suggestions. 

You may want to incorporate the 
method for scale calculation in a 
routine that automatically calculates 
the proper scale factors for X and Y. Sx 
and Sy could then be customized for 
any joystick, whether homemade or 
commercial. Such a feature would be 
useful in games and much appreciated 
by the game player. Hint: use push- 
buttons or keyboard to signal the upper 
left and lower right corners of the 
joystick's excursion. 

You may also want to apply the 
same method presented here to develop 
the scaling equations and BASIC 
statements for HiRes display. You'll 
have no trouble with the Y-coordinates 
(0-191), but since the X-coordinate can 
range from to 279, some compromise 
will be necessary. You have two 
choices: 

1. Use the full scale of the X-axis |0 to 
279) and calculate Sx accordingly. This 
method will result in "dropout" or 
non-plotting of a few points along the 
X-axis, but it does give a full range of X 
motion when this is needed. 

2. Omit plotting the edges of the 
X-axis — say 40 points on either side. 
This leaves 200 points or so in the 
central portion of the X-axis and 
prevents full X-axis excursion, which 
may or may not be a drawback in 
certain applications. It does, however, 
provide a point-for-point corre- 
spondence between joystick position 



and screen positioning of a cursor or 
other shape, a necessary feature in 
some instances. 

An entirely different set of 
applications for single-bit A/D 
conversion is the use of transducers 
other than joysticks. You might want 
to use a cheap resistive photocell (e.g., 
Radio Shack 276-116) as a light 
transducer. Check its resistance in 
the range of light intensity you 
want to measure with an ohmeter, and 
calculate the value of added 
capacitance if needed. Thermistors, 
which change resistance in response to 
temperature changes, provide another 
possibility for experiment. Brands such 
as Fenwall are available through over- 
the-counter and mail order parts 
distributors. 

Those of you who are comfortable 
with assembly language might want to 
modify the PREAD routine in one or 
more of the following ways: 

Write a PREAD routine that will use 
double precision counting, that is, one 
which increments a 16-bit counter 
consisting of two memory locations. 
Ideally, these should be in page zero to 
increase execution speed. Values 
returned will be in the range of to 
65535. This is a dramatic increase in 
range of measurement. Naturally, 
speed will be proportionally reduced so 
that the sampling rate will be little 
better than once per second. 

Have your modified PREAD store a 
memory page (256 bytes) or more of 
data automatically, under user control. 
This maximizes the speed of PREAD, 
as all the data is dumped into memory 
in quick succession. The data can then 
be analyzed and displayed later on. For 
proper display, you should make sure 
that the sampling intervals between 
each data element are equal. 

Finally, for joystick applications, 
modify PREAD to read the X and Y 
resistors in sequence. Naturally, two 
page-zero memory locations are the 
best choice for the X and Y counters. 
The advantages of such a dedicated 
PREAD routine are two: you avoid the 
problem of inaccuracy when you trigger 
two paddle inputs in succession, and 
you significantly increase joystick 
reading speed. 

These suggestions just scratch the 
surface. Some applications will require 
a little electronics background. A little 
study on the use of operational ampli- 
fier IC's (which boost sensitivity of 
certain transducers) will serve you in 
good stead if you pursue this subject. 
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discounts on our fully supported, low priced, world famous software products, and hardware. 

A.P.P.L.E. is a member owned, non-profit service organization. Write today for a free copy of our 
magazine and club information, or join by filling out the enrollment coupon 
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68000 p-System BASIC 



by Paul Lamar 

Rendondo Beach, California 



& Charmaine Lindsay 

Wlilowdaie, Ontario, Canada 



There is nothing more boring than a 
standardized computer unless it is a 
standardized high level language. Com- 
puter hardware design, operating 
system design and high level language 
design is almost an art form. Just the 
right combination of characters and 
lines on the screen, the right feel to the 
keyboard, the proper ergonomics, etc. 
You can always use more speed, RAM 
and disk storage, of course. There are 
those who would standardize both 
hardware (IBM PC ??) and software. 
This I think would be a mistake. Com- 
puter design, operating systems and 
high level languages are living and 
growing things just as are common 
languages (English for example). With 
16 megabytes of memory addressing on 
the 68000 microprocessor and 100 
megabyte, five inch Winchester hard 
disks available, we have a long way to 
go in micros, micro operating systems 
and in high level computer languages. 1 
don't think we should stop here. 

BASIC is the easiest to use, most 
versatile High Level Language (HLL) so 
far. It is easy to learn and fun to write 
short programs in. This article is about 
a better BASIC. 

The p-System has a very nice com- 
piler BASIC written by Softech 
Microsystems. This BASIC will run on 
any machine that runs the p-System. 
That includes, but is not limited to, 
68000 SAGE, Pinnacle, Micro Craft 
Dimension, Hewlett Packard 9816, 
Corvus Concept, Analytical Engines 
Saybrook and last, but not least, the 
8088 IBM PC and all its clones that 
have implemented the p-System. 
Needless to say, it runs about four 
times faster on a 8 megahertz 68000 
such as the SAGE than it does on an 
IBM PC. The p-System BASIC has all 



the usual basic commands and con- separate, short PASCAL programs that 

structs such as IF THEN ELSE, FOR TO have PROCEDURES (subroutines) im- 

STEP NEXT, ON GOTO and ON bedded within them, just as a BASIC 

GOSUB, PRINT USING etc. In addi- program has subroutines imbedded 

tion, it has some unusual extensions. within). 



Units 

The UNIT statement is very unusual 
and can be used to write BASIC pro- 
grams that can be called from another 
BASIC program, or a FORTRAN or 
Pascal program. This is done by storing 
the BASIC program UNIT on disk or in 
RAM disk within a "LIBRARY" of 
other UNITS. UNITS are a concept 
originally borrowed from assembly 
language by Pascal. The author of 
Pascal merely changed the name from 
"Called Module" to "UNIT". This is 
quite typical of Pascal and other high 
level languages. UNITS are a form of 
modular programing because they can 
be separately compiled and debugged in 
the same way as Called Modules can be 
separately assembled and debugged in 
assembly language. 

Believe it or not, you can call a 
Pascal subroutine (called a 
PROCEDURE in Pascal, subroutines 
being dirty words in Pascal) from 
within this wonderful BASIC. There 
are quite a few Pascal PROCEDURES 
available to run on the p-System that 
you may want to use in your BASIC 
programs. The way you do this is as 
follows: 

REM These commands are imbedded 
in the BASIC program. 

LIBRARY "UNIT2. LIBRARY" 
(This is the name of a file on disk or in 
RAM disk that holds a selection of 
"UNITS". These "UNITS" are 



USES FANCONTROL 
(FANCONTROL is the name of a UNIT 
that controls the fan. What else ?) 

CALL FANON 

(Finally we get around to calling the ac- 
tual subroutine (I'm sorry PRO- 
CEDURE ... shame on you, Paul) that 
does the trick.) 

We only have to use "LIBRARY" and 
"USES" once, at the beginning of our 
BASIC program. From then on we can 
"CALL" FANON as many times as we 
like. 

Line Numbers 

A very nice real feature of this BASIC is 
the fact that it does not need line 
numbers. Line numbers are only need- 
ed for GOTOs, Subroutines and IF 
THEN ELSE. This feature allows rapid 
programing because you can use the 
editor to replicate blocks of code. To il- 
lustrate, let's take a block of code such 
as Figure 1. This block of code is a 
general purpose input routine with 
error checking. If we use the program 
editor's copy feature to repeat this 
block of code over and over again we 
can, with minor modifications to the 
block, use this same block to enter 
many different variables into our pro- 
gram. After we replicate the block, we 
put the editor in the exchange mode 
and run the cursor down changing one 
character in each different variable 
name (see Figure 2.) 
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after you have 
Rearranging the 
it much more 



Another advantage of the scarcity of 
line numbers is the possibility of re- 
arranging the code 
finished programing, 
code also makes 
understandable and easier to follow. 
Rearranging the code makes the pro- 
gram neat and progress in a logical 
manner, one of the claimed advantages 
of Pascal. No need to learn structured 
programing. Forget all that 
"top-down" nonsense. No need to 
structure your program, just blurt out 
your ideas. Get that tricky subroutine, 
or algorithm you having been thinking 
about, off your chest. You can clean it 
up later with this editor. This is the 
way to have fun, enjoy life and ex- 
perience real freedom in programming. 

You move code in the editor by first 
deleting the block of code that you 
would like to move. Sounds contradic- 
tory but don't worry it works. You will 
get used to it. What really happens is all 
code that is deleted goes into a Copy 
Buffer in RAM. It stays there until you 
delete the next block of code which 
will then overwrite the Copy Buffer. To 
get the last block of code, that you 
deleted back out of the Copy Buffer, 
you put the cursor where you would 




Are You 
Serious About 
the 68000 World? 



Many MICRO readers have 
already expressed their 
interest in the 68000 - 
through the recent survey 
and in letters and 
telephone calls. Many 
other readers will become 
interested as MICRO 
presents major 68000 
articles, including a 'build- 
it-yourself project to add a 
68000 processor to an 
Apple or Commodore 64. 

If you are knowledgeable 
on the 68000, please share 
your information with the 
rest of us. Send for our new 
Writer's Guide or call us to 
discuss your ideas. 



like to have that block of code. You 
then press "c" for copy. The editor 
prompts "Buffer or File Name" Press b 
for the Copy Buffer and the code 
magically reappears where you want it. 
The same sequence of commands 
works for replicating blocks of code as 
well as for moving them. We are 
digressing into the operation of the 
p-System editor which is a whole other 
story by itself. Back to p-System 
BASIC. 

Variables 

Another nice feature of this BASIC is 
that variables are significant up to 8 
characters. This makes the code largely 
self commenting. It also makes it quite 
easy to come up with new meaningful 
names and lessens the need for local 
variable names. The worst of the early 
BASICs only allowed one letter follow- 
ed by one number (Al, G9, etc.). 

Later BASICs, such as Applesoft, would 
allow as many letters as you like but 
would only consider the first two as 
significant. BUTTOCKS and BUSTY 
are the same variable names in 
Applesoft. [That's the one remaining 
trouble with computers, they lack 
sensuality.) 

Display and Print 

DISPLAY of course, displays it on the 
CRT and PRINT actually prints the 
results on a real printer. The PRINT 
command in BASIC at first confused 



and later amused me. When I first 
started to program in BASIC on a CRT 
ten years ago, I always wondered why it 
was called "PRINT". It did not seem 
right to call it PRINT when that was 
done on a ' 'printer" not on a CRT. The 
use of the word PRINT in BASIC stem- 
med from the early days, twenty years 
ago of the language when all they had 
was a teletype printer as input/output 
for their computers running BASIC. 
DISPLAY makes more sense if you are 
going to display it on a CRT. 

Image 

The IMAGE statement appears to me 
an another unusual feature. I am not 
what anybody would call an expert on 
BASIC languages. I am familiar with 
Microsoft basic as implemented on the 
Apple, Commodore and CP/M. 
IMAGE to my knowledge does not ap- 
pear in Microsoft basic. The IMAGE 
statement is referred to by line number 
within the USING clause of a DISPLAY 
or PRINT statement. For examples: 

Example 1: 

A =88.888 (note the lack of a line 
number and the LET statement) 
10 IMAGE ###.## | line number re- 
quired here] 

PRINT USING 10: A [again no line 
number) 



The printer prints ' 
.888 rounded to .89. 



'88.89" with the 
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Example 2: 

S$ = "The subtotal is" 
DISPLAY USING 10:S$,A 

"The subtotal is 88.89", is displayed 
on the CRT. 

Example 3: 

20 IMAGE $$###.## | The double dollar 
sign indicates a floating $] 
PRINT USING 20:S$,A 

The printer prints "The subtotal is 
$88.89". 

You don't have to use IMAGE. PRINT 
and DISPLAY USING works in all the 
usual ways just like Microsoft BASIC. 

Disk File Handling 

There are the usual OPEN and CLOSE 
statements for RELATIVE and 
SEQUENTIAL disk files. RELATIVE 
files allow sequential and random ac- 
cess at the expense of extra verbiage. 
SEQUENTIAL files are of fixed or 
variable length. There is a RESTORE 
statement that is used to reposition the 
internal file pointer to the first record 
within a SEQUENTIAL disk file. The 
RESTORE statement is used to reposi- 
tion the pointer to a specific record 
within a RELATIVE file. 

The ASSIGN statement is used to 
set up an array on disk just as most 
BASICs set up ordinary arrays in RAM. 
This frees up some RAM for use by the 
program. It also results in a permanent 
record of the array in case of power 
failure. Having an array on disk is 
slower, of course, than having it in 
RAM. The ASSIGN statement seems a 
little redundunt with the 68000 as the 
68000 can directly address 16 
megabytes of RAM. Perhaps this 
feature would become more useful if 
the maximum size of the arrays was 10 
mega elements rather than only 32K 
elements. That way a hard disk could 
be used to real advantage. The RAM 
disk option can be used with the 
ASSIGN statement to allow larger pro- 
grams that run almost as fast as arrays 
located in ordinary RAM. Unfortunate- 
ly, considering the large memory ad- 
dressing capabilities of the 68000, ar- 
rays larger than 32K are unallowed in 
ordinary RAM as well. 



Ease and Speed of Programing 

When writing BASIC programs that 
needed compiling on lesser operating 
systems than the 68000 running the 
p-System you had to: write the pro- 
gram, save the resulting text file on 
disk, load the compiler from disk, 
reload the BASIC text file from disk, 
compile the code saving the resulting 
code file on disk, load the compiled 
code from disk and run the program. 
This was a long and tedious process 
usually taking several minutes. On the 
68000 p-System you merely press "Q" 
for quit the editor, "U" for update the 
work file (a temporary file in RAM) and 
"R" for run the program. The text file 
will automatically be compiled, saved 
on disk and the program will run very 
quickly. These prompts are always on 
the screen in case you forget. 

If you have a syntax error in your 
program, the compiler will stop and 
prompt: Continue ? Quit ? or Edit ? If 
you press "e" or "E" for edit the 
BASIC text file will be automatically 
reloaded from RAM disk in several 
seconds and the cursor will be placed 



just beyond the error. This is really nice 
if you program the way I do, by the trial 
and error method. 

The Documentation 

An interesting aspect of this BASIC is 
that: in some cases the description of 
the constructs and statements are writ- 
ten from the point of view of the Pascal 
programer. It is as if the authors of this 
BASIC finally realized the limitations 
of Pascal and set out to write a BASIC 
that incorporated the better aspects of 
UCSD Pascal. For example, when 
discussing subroutines the authors im- 
mediately lapse into a discussion of 
"procedure blocks". For some reason 
they could not quite bring themselves 
to just call it a subroutine. By the way, 
there are subroutines in assembly 
language and they work exactly the 
same way as they work in BASIC. 

On the whole the documentation is 
quite good with lots of examples. 
However it is not written for beginners 
and some knowledge of Pascal would 
be helpful for those few constructs that 
are similar to Pascal. 
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22 for x=l to 9 
57 display "paul" 
74 next x 
76 end 
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Final MC68000 IV. 02 [a.l] Code for 
segment PROGRAM procedure 1 MP 
segment word offset 17 BASE 

Source Object SEG 

P-Code N-Code PME 

(Dec. Offsets) DATA 



RADIX 10 
.EQU A0 



.EQU 
.EQU 
.EQU 
.EQU 



Al 
A2 
A3 
A6 



.WORD 204,0 



19: 



8601 

2 00 

3 811400 

6 00 

7 7015 
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10 A501 

12 A8 

13 A8 

14 49E9 
18 99CE 
20 300C 
22 3340 



000C 



001C 



;p-code 
;p-code 
;p-code 
;p-code 
;p-code 
;p-code 
;p-code 
;p-code 
;p-code 



continued 
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The Native Code Generator 


Figure 4 continued 








This feature of the UCSD p-System is 
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about. The Native Code Generator, 
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generates a partial assembly language 
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text file from a BASIC program listing. 
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; p-code 


STRL 




See Figures 3 and 4. Unfortunately, at 
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this time the file is part assembly 
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language and part p-code text file, (the 
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interpreter). At the present time, June 
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8(PME) 


1984, there is a bug in the Native Code 


58 CC 


; p-code 


FLT 




Generator that does not handle 


59 F4 


; p-code 


STRL 




backward GOTOs in BASIC properly. 
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The original purpose of the Native 
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Code Generator was to bypass the 
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p-code interpreter and thereby speed up 


38: 64 3F29 001C 
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MOVE.W 


28(BASE),-(SP) 


the execution of all high level 
languages running under the p-System. 
This is a worthwhile and highly 
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In way of explanation the high level 
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language "C" also generates an 
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assembly language text file which must 
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then be run through an assembler to 
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generate an executable code file. This 
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intermediate assemble language text 
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program. This is the reason that "C" is 
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the preferred high level language for 


112 F3 


; p-code 


LDRL 




writing operating systems that control 
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time critical hardware such as disk 


114 A8 
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drives and printers. My own opinion is 
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that time critical operating systems are 
best written in assembly language. 
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language "C" is a little too cryptic for 
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my taste. I prefer BASIC. In Softech 


59: 128 7225 


; p-code 


SCXG 


BLIB ,37 


p-System BASIC however, running the 
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Native Code Generator generated 
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assembly language text file through an 
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assembler is not possible at the present 
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text file to an assembly language text 
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file it would then be possible to run 
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that assembly language text file 
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through an assembler and generate a 
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executable machine language code file. 
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The same as in "C". This would result 
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in unprecedented flexability for this 
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BASIC. A programer could optimize the 
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resulting assembly language text file 
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and detailed control over the speed of 
execution of assembly language with 
the ease of programing in a simple, easy 
to learn high level language. This 
BASIC in conjunction with the 
p-System Native Code Generator is 
very close to this Utopia. 

Speed of Execution 

Speed of execution is not what BASICs 
are known for. No one should write a 
word processing, spreadsheet, data base 
or spelling checker program in any 
BASIC, interpreted or compiled. The 
presently available compilers are just 
not as efficient as a good assembly 
language programer at writing code. 
Nevertheless, the 8 megahertz 68000 
p-System compiled BASIC in p-code 
form is three times faster than 
Microsoft BASIC running on the IBM 
PC. Running the p-code through the 
68000 Native Code Generator would 
speed it up by another factor of three 
except for the floating point routines. 
These routines are not changed by the 
Native Code Generator. Fortunately, 
number crunching is best done by hard- 
ware floating point chips. 

National Semiconductor has a 
floating point chip (16081 or 32081) 
that works quite well with the 68000. 
Ironically it works faster with the 
68000 than with Nationals own 16 bit 
microprocessor the 16032. This chip is 
capable of dividing a 64 bit floating 
point number by another 64 bit floating 
point number in approximately 30 
microseconds with the 68000 running 
at 10 MHZ and the 16081 running at 5 
MHZ. That is the total time required to 
load and retrieve the operands and store 
them in main memory. The 16081 re- 
quires only 11 microseconds to do the 
actual divide. The 16081 will shortly 
be available in a 10 MHZ version. This 
will not reduce the time by half but by 
somewhat less than half. The reason is 
that some finite time, determined by 
the speed of the 68000, is necessary to 
load the operands into the floating 
point chip. Eventually, p-System 
BASIC, or some other BASIC will be 
available that will support the 
68000/16081 combination. 

Converting Microsoft Basic to 
Softech p-System Basic 

Using the following rules, with wise 
use of the p-System editor commands, 
you will be able to convert a typical 
Microsoft program to Softech p-System 



BASIC in short order. Use them in the 
order shown to avoid confusion and 
mistakes. These procedures were pro- 
vided by Peggy Lakey at SAGE 
Computer, Reno, Nevada. 

You can transfer your Microsoft 
BASIC text files to the p-System receiv- 
ing computer using a RS232 serial 
printer interface cable on the transmit- 
ting computer. Connect this cable to a 
RS232 port on the receiving computer. 
Any text file that can be printed on 
your present printer can be transferred. 
The p-System in the SAGE has a utility 
program called "TEXTIN". This pro- 
gram will convert an ASCII file to the 
p-System file format. The resulting 
Microsoft BASIC text file in the 
p-System computer can then be loaded 
into the editor and converted to a 
p-System BASIC text file using the 
following rules. 



1. Change all occurences of ':' to 
' : : ' . Then search for each of these 
and change back those in strings 
and quotes, which should not 
have been altered. 

2. Put an 'END' statement at the 
end of the program, if not already 
present. All other 'END' 
statements should be changed to 
'STOP'. 

3. A statement such as 'DEFINT 
I-N' should be re-written to read 
'INTEGER I, J, K, L, M, N'. 

4. Any statement 'IF ... GOTO ..' 
should be changed to 'IF ... 
THEN..'. 

5. Strings and literal quotes may not 
be continued from line to line. 
They must be presented on one 
line, or displayed in segments, or 
concatenated. 

6. 'TAB (X)' must be followed by ';'. 

7. When 'INPUT' is used with an 
imbedded string as prompt, use 
':' before the variable label, not 

8. Change all occurences of 'PRINT' 
to 'DISPLAY' unless you 
specifically want an output to go 
to the printer. 

9. Any time a single statement must 
be continued from one line to 
another, use the comment 
delimiters '(*< CR> ' to hide the 
carriage return from the 
compiler. 

Example: 

1000 IF x < y then (* 

*) GOSUB 300 : : DISPLAY x 



10. When multiple statements 
follow an 'IF' statement on a line, 
those statements will not be 
skipped if the 'IF' statement 
proves false. The following line 
of Microsoft: 



20 


X = 


Y 


IF X <> THEN X 




GOTO 5 


30 


... 






should be re- written as follows: 


20 


X = 


Y 


:: IF X = THEN 30 




X = 


Z 


: GOTO 5 


30 








1] 


. c 


lan 


ge any command t 



12. 



13. 

14. 
15. 

16. 

17. 



18. 



19. 



20. 



21. 



22. 



intended to clear the screen to 

'DISPLAY ERASE ALL: ' 

Any command intended to 

display at a given place on the 

screen, such as 'PRINT 9 342', or 

'HTAB 5 : VTAB 6 : PRINT' 

should be changed to 'DISPLAY 

AT [line, column):'. 

When concatenating strings, use 

'&.', not ' + '. 

Change 'MIDS' to 'SEG$'. 

Change 'LEFTS (X$,L)' to 'SEG$ 

(X$,1,L)'. 

Change 'RIGHTSS (X$,L)' to 

'SEGS (X$,(LEN|X$)-(L-1)),L!'. 

Change 'GET' to 'INKEY$ (0)'. 

(NOTE: these statements do not 

always act exactly alike. Check 

the definitions in BASIC you are 

converting from.) 

Subscripted and non-subscripted 

variables of the same name are 

not allowed in the same program. 

For example, if the variable 

'A(IO)' and 'A' are in the same 

program, change them to 'A(IO)', 

and 'A__NUTHER'. 

In a DIM statement, a variable 

name may not be used in the 

parenthesis for dimension size. 

Thus, DIM X(B,C) is illegal. DIM 

X(3,4) would be ok. 

Change all function statements 

and calls as follows: 'DEF FN 

F name(args)' is changed to 

'DEF f name(args)'. (add a 

FNEND for multiple line 
functions, see manual) 'FN 

f name' is changed to just 

'f name'. Be sure all function 

names have unique names, and 
don't use regular variable names. 
All strings in data statements 
must have "quotes"d around 
them. 

In a DIM statement, a variable 
name may NOT be used for the 
array size. 
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Exec File Utilities 



by N. D. Greene 
Storrs, Connecticut 



Introduction 

Here are eight exec file utilities which 
are useful in writing and examining 
programs on the Apple II. They may be 
easily entered and saved with the 
Textfile Write Edit Read Program 
IT.W.E.R.P.) described in the 
September 1984 issue of Micro. 

Exec files are text files containing 
basic commands and/or program line 
statements. When these files are 
activated by the EXEC ("execute") 
command, they mimic direct keyboard 
entry. If an exec file contains only com- 
mands, it is possible to exec it without 
disturbing any program in memory. For 
example, one of the utilities described 
below prints a memory map of the cur- 
rent program without altering it. 
However, exec files containing 
program line statements can be used to 
quickly change the contents of a pro- 
gram. Some examples of this approach 
are also described below. Further 
details about exec files and their 
characteristics are discussed in the disk 
operating manual. 

Description 

The exec files described here range 
from simple command statements to 
more complex forms. For convenience, 
they have been divided into three 
general categories. 



A Collection of Eight Useful 
Exec Utilities for the Apple 



Simple Command Routines 

Listings 1 and 2 show two simple exec 
files which may be used to display the 
contents of high resolution graphics 
pages one or two without erasing them. 
This is in contrast to the normal HGR 
and HGR2 commands which activate 
page 1 or 2 after erasing their contents. 
These files should be entered as listed 
using T.W.E.R.P. or other text file 
writer. Note that the bracketed 1 with 
the arrow is used to indicate the first 
field and should not be entered. The 
question mark, ?, is the shorthand 
equivalent of the print command. 

Pointer-Based Routines 

Certain memory addresses indicate the 
locations of program elements or 
variables. These addresses are called 
"pointers" and may be used as the 
basis of an exec file. Two examples are 
shown in Listings 3 and 4. Executing 
E.BIN (Listing 3} prints the address and 
length of the last loaded binary file. 
Listing 4 is a shortened version of a 
previously published memory map 
exec file (MICRO 43, Dec. 1981). It 
finds and displays the program begin- 
ning, the program end and other infor- 
mation by peeking at the appropriate 
pointer addresses. Both of these files 
may be used without disturbing a 
program in memory. 



Piggyback Routines 

Some statements such as INPUT can 
not be used as direct keyboard 
commands. These deferred-execution 
commands must be used within a pro- 
gram. The same restrictions apply to 
exec files. However, it is possible to 
use these restricted commands within 
an exec file without permanently alter- 
ing a program in memory. This is the 
piggyback routine. The exec file adds 
some new lines to the existing pro- 
gram, runs these lines and then deletes 
them leaving the program in its original 
form. Typically, high line numbers are 
chosen to avoid conflict with existing 
line numbers. 

Listings 5-8 show several exec files 
which use deferred-execution com- 
mands via the piggyback method. 
E.PTR (Listing 5) shows the contents of 
a pointer address. The initial (low byte] 
address is input and the program 
calculates and prints the contents of 
the two-byte address. If 103 is input, 
the program start memory will be 
shown. E.PTR adds three new high- 
numbered lines, the last one containing 
a delete command. The file then runs 
the lines which ask for an input, print 
the results and then conveniently self- 
destruct. Actually E.PTR represents a 
combination of a piggyback and pointer 
exec file. 
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E.CTR (Listing 6) makes control 
characters visible. Control characters, 
which are normally invisible in catalog 
and program listings, appear as flashing 
characters after this file is executed. 
This is a useful routine to (1) check 
that all DOS commands in a program 
contain a control D and (2) find hidden 
control characters in catalog names. If 
you accidently insert a control 
character while saving a program on 
disk, it will not load unless the invisi- 
ble character is inserted at the proper 
point. This is a frustrating experience 
and a trick used by some commercial 
programs to prevent listing. E.CTR is a 
compressed, piggyback exec file ver- 
sion of a conventional program listed 
on page 151 of reference 2. This file 
writes a one line program at 63999 (the 
highest program line permitted in 
floating point basic] and then runs it. 
The line deletes itself when the last 
statement is encountered. Pressing 
RESET or PR#0 restores normal 
printouts. 

Two "capture" files are shown in 
Listings 7 and 8. These exec files 
transfer floating pomt and integer pro- 
grams into text files. But why? There 
are two ma]or uses for these files: 1) to 
create a library of auto-writing 
subroutines and 2| to convert integer 
programs into floating point programs. 
Both E.CAPA and E.CAPI may be used 
to create a library of subroutine exec 
files. The desired subroutine is isolated 
by deleting all other lines and then cap- 
tured in a file by executing the 
appropriate exec routine (E.CAPA for 
Applesoft floating point programs or 
E.CAPI for integer programs.) E.CAPA 
permits a choice of file names; E. CAPI 
always creates a file names "TEXT. I". 
Once created, these files may be used 
to add subroutines to new programs. 
E.CAPA is a one line, self-destructing, 
piggyback exec file similar to E.CTR. 
E.CAPI is a piggyback version of a pro- 
gram listed in page 76 of reference 2. 
The first line (field) contains an invisi- 
ble, control D between the quote 
marks. 

E.CAPI may also be used to trans- 
form integer into floating point pro- 
grams. The procedure is as follows. 
After installing integer via a language 
or hardware card, load the integer pro- 
gram to be captured. Then exec E.CAPI 
which puts the program into the exec 
file, TEXT. I, and saves it on the disk. 
Next, convert to floating point and 



1=> POKE49239,0:POKE49236,0:POKE49234,0:POKE49232,0 



Listing 1. E.GR1 






1=> P0KE49239 , : P0KE29237 , : P0KE49234 , : P0KE49232 , : END 
Listing 2. E.GR2 

1=> H0ME:?"ADD=";PEEK(43634)+PEEK(43635)*256 ^ 
2=> VTAB3 :?"LEN=";PEEK(43616)+PEEK(436l7)*256 ^ 

Listings. E.B1N ^ ^^ . ^^S^L^ 



P 



^ 



1=> HOME:? "HI MEMORY^ ";PEEK(115)+PEEK(U6)*256 
2=> VTAB2:?"STRINGEND= ";PEEK(111)+PEEK(112)*256 
3=> VTAB3 : ? "FREESPACE= "; 

PEEK(111)+PEEK(112)*256-(PEEK(109)+PEEK(110)*256) 
4=> VTAB4:? "ARRAY END= ";PEEK(109)+PEEK(110)*256 
5=> VTAB5 :? "ARRAY BEG= ";PEEK(107)+PEEK(108)*256 
6=> VTAB6:?"LO MEM0RY= ";PEEK(105)+PEEK(106)*256 
7=> VTAB7:?"PR0G END = "; PEEK ( 175 )+PEEK( 176 )*256 
8=> VTAB8:?"PR0G BEG = ";PEEK(103)+PEEK(104)*256 

Listing 4. E.MEM 

[1]=> 60000 HOME : INPUT "A="; A 

[2]=> 61000 H0ME:?PEEK(A)+PEEK(A+l)*256 

[3]=> 62000 DEL 60000,62000 

[4] = > RUN60000 

Listing 5. E.PTR 



1=> 63999 DATA201, 141,240, 21,201, 136,240, 17,201, 128, 144, 13, 
201,160,176,9,72,132,53,56,233,64,76,249,253,76,240,253: 
FORI =768T0768+27 : READV : POKEI , V : NEXT : 
POKE54,0:POKE55,3:CALL1002:DEL63999,63999 

2=> RUN63999 . _ cimvZS 

Listing 6. E.CTR 

1=> 63999 D$=CHR$(13)+CHR$(4) :H0ME:VTAB12: 

INPUT "CAPTURE FILE NAME==> ";F$: ?D$; "0PEN";F$: ?D$; "WRITE"; F$ : 
POKE33, 30:LIST0, 63998: ?D$; "CLOSE ";F$: TEXT: DEL63999, 63999 :END 

2=> RUN63999:END (-pfffUK.^ 

Listing 7. E.CAPA 

1=> 32762 D$="" 

2=> 32763 PRINT D|; "OPEN TEXT. I" 

3=> 32764 PRINT D$; "WRITE TEXT. I" 

4=> 32765 POKE33,30:LIST 0,32761 

5=> 32766 PRINT D$; "CLOSE TEXT. I" 

6^> 32767 TEXT: END 

7=> RUN 32762 

8=> DEL 32762,32767 



\^P 



Listing 8. E.CAPI 
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execute TEXT. I, which loads the cap- 
tured program into memory. At this 
point, the original integer program is 
now a floating point program which 
may be saved in the conventional man- 
ner. It is important to remember that 
there are differences between the com- 
mands used by integer and floating 
point programs. The new, floating 
point version may not work. If so, it 
will require appropriate corrections. 
However, E.CAPI saves the time of re- 
entering and existing integer program. 
This procedure works because the 
floating point language does not check 
for syntax errors until the program is 
run. (Fortunate for this approach 
- unfortunate for programmers!] The 
integer language checks for errors dur- 
ing listing, so it is not possible to use 
E.CAPA to transform floating point 
into integer programs. 

Applications 

Exec files can be a very powerful pro- 
gramming tool. I have a working disk 
containing E.MEM, E.GR1, E.GR2, 
E.CTR and E.BIN. Thus, I can examine 
memory, look at the contents of either 
graphics page, "see" hidden control 



characters or find the address and 
length of any binary file whenever 
needed and without disturbing the pro- 
gram I have in memory. The names 
used here are to remind me these are 
exec files — they could be saved 
under any other valid name. 

I have a second disk containing an 
extensive library of exec file 
subroutines created by E.CAPA. These 
have titles indicating their function 
and line number range. Some examples 
are: TITLE CENTER 1000-1005; TIME 
DELAY 3000-3010; and INPUT 
7000-7070. Thus, when writing pro- 
grams, I auto-write any subroutines I 
need by executing the appropriate file. 
After finishing the program, I compress 
it by using the renumber routine. Of 
course, it is necessary to keep track of, 
or use a common set of, variables for 
subroutines which are added to an 
existing program. 

Exec files are both powerful and 
dangerous since they mimic keyboard 
input. This is especially true of piggy- 
back and other exec routines which 
modify programs. Be careful when 
using a file the first time. Also be con- 
scious of the changes caused by ex- 
ecuting a file. If 176 is input to E.PTR 



(Listing 5) to find the end of the pro- 
gram in memory, the answer will be in- 
correct since E.PTR adds three new 
lines during its execution. In contrast, 
E.MEM (Listing 4) which does not 
define any new variables, nor add any 
program lines, will show the correct 
value. 

There are numerous other possible 
exec file utilities which could be writ- 
ten. An obvious example is the code- 
pokes program on page 77 of reference 2 
which converts machine-language 
routines into a series of 
basic poke commands. 
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Expanding the 
Commodore 1541 



Disk Drive 



A Multi-Part Series on the 1541. 

Part 1: Expanding the User Commands 



by Michael G. Peltier 
Wichita, Kansas 



Introduction 

This is the first part of a three part arti- 
cle discussing ways to expand the 
Commodore 1541 Disk Drive. Part 1 
covers expanding the DOS by explain- 
ing the operation of the "UO" 
command and showing how to install 
the "UA" thru "UP" commands. Part 
2 will explain how to expand the disk 
drive's RAM, including theory, con- 
struction, installation and testing of a 
4K expansion RAM. The advantages 
and disadvantages of expanding the 
RAM will be discussed. Part 3 will 
describe expanding the I/O operations 
to include parallel access to and from 
the Commodore 64, as well as adding a 
Centronix-type printer port to dump 
data for the disk directly to a parallel 
printer. 

The User Command 

The User Command ("UA" thru "U|", 
or "Ul" thru "U:"l is provided to 
allow a machine language programmer 
to install custom commands and to 
define parameters for these commands. 
The user command takes the form: 
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"Ux" or "UX:" + CHR$ (parameter 1) 
+ CHR$ (parameter 2) ... 

In practice, the "x" is replaced by an 
index character which defines the loca- 
tion which is to be executed. Table 1 
defines the valid index characters and 
their associated execution addresses in 
the 1541 memory. 

Table 1 

Index Character Address Executed 



$CD5F 
$CD97 
$0500 
$0503 
$0506 
$0509 
$050C 
$050F 
$FF01 
$EAA0 



Location $CD5F is the entry point for 
the read block routine. Location 
$CD97 is the entry point for the write 
block routine. Locations $0500 thru 
S0511 constitute the user jump table. 
The jump table is provided by the user 
and typically contains a three byte JMP 
instruction for each index character. 
Each of these jump instructions, when 
executed, causes a jump to the entry 
point of a user-provided routine in 
order to process the custom command. 
Index character I causes a jump to 
$FF01, but this has no practical value. 
Index character J causes a jump to 
$EAA0 which is the entry point for the 
power-up reset routine. 



Parameters such as track number, sec- 
tor number, byte count and pointers 
may accompany the user command. 
Parameter values are one byte, so they 
must be between and 255, inclusive. 
Consider the following example: 

"UD:" + CHR$( parameter 1) 
+ CHR$(parameter 2) + ... 

Parameter 1 will be located at address 
$0203, parameter 2 will be located at 
address $0204, and so forth. Up to 38 
parameters may be used. The 
parameters may be read by the user- 
provided routine at the locations listed 
in Table 2. 

Table 2 



M 


LOCATION 


PARAM 


LOCATION 


1 


$0203 


20 


$0216 


2 


$0204 


21 


$0217 


3 


$0205 


22 


$0218 


4 


$0206 


23 


$0219 


5 


$0207 


24 


$02 1A 


6 


$0208 


25 


$021B 


7 


$0209 


26 


$021C 


8 


$020A 


27 


$021D 


9 


$020B 


28 


$02 IE 


10 


$02 0C 


29 


$021F 


11 


$020D 


30 


$0220 


12 


$02 0E 


31 


$0221 


13 


$020F 


32 


$0222 


14 


$0210 


33 


$0223 


15 


$0211 


34 


$0224 


16 


$0212 


35 


$0225 


17 


$0213 


36 


$0226 


18 


$0214 


37 


$0227 


19 


$0215 


38 


$0228 
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Expanding the User Command 

The user command may be expanded to 
include index characters A thru P. This 
gives the programmer 16 new com- 
mands to work with. Locations $006B 
and $006C, respectively, contain the 
low and high bytes of the starting loca- 
tion of the user address table. The user 
address table differs from the user jump 
table discussed earlier in that the user 
address table has only two bytes per 
index character. These bytes are the 
low and high bytes of the locations to 
be executed. In the unexpanded mode, 
$006B contains $EA and $006C con- 
tains $FF. These addresses point to the 
user address table starting at $FFEA. 
The user address table contains the 
following information: 

Table 3 

Address Contents Index Vector 



Table 4 



$FFEA 


$5F 


A 


$CD5F 


$FFEB 


$CD 






$FFEC 


$97 


B 


$CD97 


$FFED 


$CD 






$FFEE 


$00 


C 


$0500 


$FFEF 


$05 






$FFF0 


$03 


D 


$0503 


$FFF1 


$05 






$FFF2 


$06 


E 


$0506 


$FFF3 


$05 






$FFF4 


$09 


F 


$0509 


$FFF5 


$05 






$FFF6 


$0C 


G 


$050C 


$FFF7 


$05 






$FFF8 


$0F 


H 


$050F 


$FFF9 


$05 






$FFFA 


$01 


I 


$FF01 


$FFFB 


$FF 






$FFFC 


$A0 


J 


$EAA0 


$FFFD 


$EA 







Notice that locations $FFEE thru $FFF9 
in the user address table contain vec- 
tors which point to the user jump table 
in locations $0500 thru $0511. 
Although only 10 index characters are 
shown in the table, DOS will support 
up to 16, giving a total table length of 
32 bytes (two bytes per command). To 
expand the user command to include 
all 16 index character |A thru P|, 
change the user address table pointer at 
$006B (low byte) and $006C (high byte) 
to point to a 32 byte USER table in 
RAM. Enter the table in the following 
format: 



Address 


Contents 


p+0 


$5F 


p+1 


$CD 


P+2 


$97 


P+3 


$CD 


p+4 


low byte vector 


p+5 


high byte vector 


p+6 


low byte vector 


p+7 


high byte vector 


P+30 


low byte vector 


P+31 


high byte vector 



Index 



(p = user address table base pointer 
contained in $006B and $006C) 

Note that it is necessary to set p+1 thru 
p+3 to the values shown in order to 
preserve the read block (Ul or UAJ and 
the write block (U2 or UB) commands. 
If, however, the read and write block 
commands are not needed, then the 
above locations may be used for other 
vectors. Each of the vectors in the 
above table point to entry points of the 



user-provided routine. The new table in 
RAM may be created or altered by the 
user. As in the unexpanded mode, the 
expanded mode also allows the use of 
parameters 1 thru 38. 
To return to the unexpanded mode, use 
the "U0" command. This command 
sets the user address table pointer back 
to $FFEA, which restores the original 
user table. 

Using all 16 expanded user commands 
may be difficult due to the lack of 
useable RAM for programming. Up to 
IK of RAM may be used for program- 
ming (buffers thru 3, $0300-$06FF). 
However, as these buffers are filled 
with programs, they are no longer 
available for data transfer, thus reduc- 
ing the number of file which may be 
opened at any one time. This problem 
will be solved in Part 2 of this article by 
expanding the 1541 RAM to 6K. This 
will be accomplished with a plug-in 4K 
RAM module that you can build 
yourself. 



"On Nov.15, 

a friend 



j^ 



III 



who smokes. 



Larry Hagman 



Help a friend get through the day without a cigarette. 

They might just quit forever. And that's important. Because 

good friends are hard to find. And even tougher to lose. 



THE GREAT AMERICAN SMOKEOUT 

V AMERICAN CANCER SOCIETY 
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A Very Moving Message 



AAAAAM«¥WWMM^M^MMIWWMWNMWWMMAMMMMMMM 



Split Screen, Fine Scrolling and Interrupt Techniques 
Combined in a Useful Utility for the Commodore 64 



Summary 

Here's a program you can very quickly 
type into your Commodore 64. It will 
add to your computer's usefulness and 
show off some of its good features at 
the same time. The program runs a 
'marquee- type' message across the 
screen of the computer. This feature 
allows you to use the C64 as part of an 
'electronic bulletin board' application, 
either alone or in combination with 
other programs. The message and its 
configuration can be custom-tailored to 
suit your needs. The program takes ad- 
vantage of the computer's fine- 
scrolling capabilities to move the 
message smoothly and evenly across 
any part of the screen. 



The Moving Message 

Here's another application for home or 
club ... the computer as a moving 
message display device. This is a flashy 
way to leave a message for others in 
your family, or you can use it to an- 
nounce schedules or special events in a 
club environment. You can even add it 
in to other programs and use the 
message to give instructions, advice in 
an adventure game and so on, while the 
other program is running. This little 
machine-language routine will run a 
continuous marquee-type message 
across either the top or the bottom of 
the screen, or any other line that you 



by Ian Adam 

Vancouver, British Columbia, Canada 



choose. The message that it runs can be 
up to 255 characters long, enough to 
cover most typical applications. The 
message or the way it is displayed can 
be changed easily to suit your needs. 
About the only limitation is your 
imagination! 

Using the program is very simple. 
All you need to do is type in the BASIC 
program for your computer, being sure 
to SAVE a copy, then run it. You will 
then be asked to specify where on the 
screen you want the message to appear 
and to enter it according to the instruc- 
tions. That's all there is to it! Your 
message will appear as if by magic, 
sliding continuously across the screen. 
Once it is working, it will continue to 
do so until you stop it. 

The program shows off a number of 
very interesting features of your com- 
puter which we'll look at in a moment. 
In particular, note that it runs on an 
'interrupt' basis. This means that it 
will continue to run when the program 
that loaded it is finished. You can even 
load in and run a different program and 
the message will still be displayed in 
most cases. The simplest way to stop 
the message is to press the RUN/ STOP 
and RESTORE keys simultaneously. It 
can be restarted by typing SYS 49152. 



For those who are interested in the 
details, the BASIC program loads in a 
machine-language program that does 
the serious work. This program is 
located in the spare RAM beginning at 
49152. A commented assembly listing 
of the machine code is included in case 
you want to see how it works, but 
you'll still need the BASIC program to 
load in your message. 

Additional Instructions 

Once it is debugged and working, here 
are some additional instructions you 
may find useful in operating the 
display. 

1. Changing text color: simply POKE 
location 49248 with a number from 
to 15 to change the color of the text in 
the banner. 

2. Background color: the color of the 
screen background and display 
background cannot be changed in the 
usual way (with a POKE to location 
53281). The new locations to POKE are 
49267 for the screen color and 49266 
for the background of the message. 

3. Changing the message: type GOSUB 
9750 and follow the prompts to enter a 
new message, (alternatively, you can 
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10 PRINT CHR$(l47) 

20 PRINT " MOVING MESSAGE 64: 

30 PRINT " 

40 PRINT " BY IAN ADAM {DOWN} 

50 PRINT "THIS PROGRAM SCROLLS A BANNER MESSAGE 

ACROSS THE SCREEN USING 
80 GOSUB 9500 
90 PRINT "{DOWN} 

*PRESS RETURN TO LOAD MESSAGE. {UP} ": INPUT A$ 
100 GOSUB 9600: GOSUB 9750 
110 PRINT "{DOWN4} ADJUSTMENTS: {DOWN} 
"POKE 49248, TEXT COLOUR 
"POKE 49266, 
"POKE 49267, 
"SYS 49152 
"GOSUB 9600 
"GOSUB 9750 



COLOUR OF BANNER 
COLOUR OF MAIN SCREEN 
ENABLE MESSAGE 
CHANGE MESSAGE LOCATION 
NEW MESSAGE 



120 PRINT 

130 PRINT 

140 PRINT 

150 PRINT 

160 PRINT 

170 PRINT 

180 END 
9480 REM READ AND POKE DATA INTO MEMORY 
9500 FOR 1=49152 TO 49273 
9510 READ A:POKE I, A 
9520 T=T+A:NEXT 
9530 IF T-15669 THEN PRINT "CHECKSUM ERROR - 

DOUBLE-CHECK DATA! ":STOP 
9540 RETURN 
9580 REM WHICH LINE ? 

9600 PRINT "{DOWN}PICK ANY LINE FOR THE MESSAGE 
9610 PRINT "1 IS TOP LINE, 25 IS BOTTOM LINE 
9620 INPUT "WHICH LINE";N* 
9630 IF K%< 1 OR N*> 25 THEN 9610 
9640 X=40*N*+768 
9650 Y=X AND 255 
9660 POKE 49245, Y: POKE 49250, Y 
9670 X=(X-Y)/256 

9680 POKE 49246, X:POKE 49251, X+212 
9690 X=42+8*N* 

9700 POKE 49271.X -.POKE 49270, X+8 
9710 RETURN 

9730 REM ENTER MESSAGE 
9750 A$=CHR$(164):PRINT CHR$(l47); 
9760 FOR 1=1 TO 255:PRINT A$; :NEXT 
9770 PRINT CHR$(215) 
9780 PRINT "{DOWN} 

TYPE MESSAGE AT TOP OF SCREEN, USING 
9790 PRINT "LOTS OF SPACE, MOVE CURSOR DOWN TO {tW} 

THEN PRESS RETURN 
9800 POKE 631, 19: POKE 198,1 
9810 INPUT A$ 
9850 A=49273:B=1023 
9860 FOR 1=1 TO 255:S=PEEK(B+I) 
9870 IF S=100 THEN S=32 
9880 POKE A+I,S:NEXT 
9890 POKE 53265, 27: SYS 49152: RETURN 
9910 REM ENTER DATA CAREFULLY ! ! ! 
9930 DATA 120,169,127,141,13,220,169,1,141,26,208, 

169,23,141,20,3,169,192 
9940 DATA 141,21,3,88,96,173,25,208,141,25,208,162,0, 

189,114,192,141,33 
9950 DATA 208, 189, 116, 192, 141,22,208, 189, 118, 192,141, 

18,208,138,73,1,141,30 
9960 DATA 192,240,3,76,188,254,165,162,41,7,73,7,141, 

116,192,201,7,208 
9970 DATA 38,174,120,192,232,236,121,192,208,2,162,0, 

142 , 120 , 192 , 160 , 216 , 189 
9980 DATA 122,192,153,232,6,169,15,153,232,218,232, 

236,121,192,208,2,162,0 
9990 DATA 200,208,234,76,49,234,0,6,7,200,8,241,0, 
255 



enter the message by poking the screen 
codes into memory beginning at loca- 
tion 49274). 

4. Changing the location on the screen: 
type GOSUB 9600 and follow the 
prompts to change the location on the 
screen. Note that if you have not 
selected the top of the screen for the 
message, then scrolling the screen will 
create a bit of a mess. 

5. Spacing: the moving message will 
have greater impact if you spread it out 
a bit, adding lots of spaces or other 
characters such as asterisks. The full 
length of the message is normally 
displayed, taking 34 seconds to scroll 
across the screen of the C64. The 
message will then repeat indefinitely. 
It is normally best to operate the pro- 
gram that way, but if you have a short, 
urgent message that you want to repeat 
more often, you can POKE its length 
into location 49273. If you want to 
display a very long message, your pro- 
gram can simply divide the message in- 
to segments of 255 characters and 
change the segment occasionally. 

Technical Features 

This program demonstrates a number 
of the special features of your 
Commodore 64. If you're not 'into' 
machine language or details of the com- 
puter you can just skip over this sec- 
tion, since you don't need to know all 
the details in order to run the program. 
However, if you want to know a bit of 
what makes the machine tick, then 
read on. 

The BASIC program you see is a 
'loader' for a machine language routine 
that, in effect, becomes part of the 
computer's operating system. This ap- 
proach shows off at least three of your 
computer's special features: 

1. modifying the interrupt routine. 

2. split screen techniques. 

3. fine scrolling and other control 
registers on the video chip. 

Here's a little more on how each of 
these works: 

Interrupt routine 

Sixty times each second, the computer 
'interrupts' what it's doing to carry out 
some housekeeping chores - checking 
the keyboard, updating the clock, 
washing the dishes and so on. In order 
to do this, it jumps to a special routine 
in memory that contains the instruc- 
tions. The computer needs to know 
where this 'interrupt routine' is 
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located, so it stores the address in a 
pointer, held in locations $0314 and 
0315 (decimal numbers 788 and 789). 

The address normally held in that 
pointer is $EA31 on Commodore 64. 
What we will do is change the pointer 
so that it directs the computer to our 
routine instead. Our routine will take 
care of moving the message one step 
across the screen; when it's finished, 
we return control to the normal 
routine, to take care of the usual 
housekeeping tasks. 

Split screen technique 

The picture on your TV or monitor is 
formed by a series of horizontal scan 
lines projected sequentially from top to 
bottom of the screen. The video chip in 
the computer keeps track of where the 
raster scan line is on the screen and will 
alert you at any point on the screen you 
request. This is handy for switching 
various displays in and out on different 
parts of the screen, resulting in a 
display that could be, for example, part 
graphics and part text. This is known as 
a split screen. 

In this case, we will ask the chip to 
generate an interrupt twice on each 
screen: first, when the scan line gets to 
the beginning of our message, we will 
select the color of the screen to suit. 
We will also adjust the horizontal posi- 
tion and narrow the screen to hide the 
letters coming on. Then, when the 
video chip indicates it has reached the 
bottom of our message line, we will set 
the screen color, position and width 
back to normal. We will also take this 
opportunity to slip the display a little 
to the left, while it is out of sight [so 
that it won't flicker]. 

Fine scrolling 

It is fairly easy to write a program like 
this to jump the message across the 
screen one letter at a time - in fact, you 
can even do it using BASIC. However, 
this program uses the capability of the 
C64 to move the display across the 
screen one pixel at a time. This results 
in a very smooth scrolling effect, as 
there are eight pixels to each character. 
You have no doubt seen this feature us- 
ed before, although you may not have 
realized it. It is often used by games to 
create an illusion of horizontal motion 
on part of the screen, for example to 
move traffic from side to side in frog 
games, or to scroll helicopter battles 
sideways. 

























MOVING MESSAGE PROGRAM 






FOR USE 


ON THE COMMODORE 64 


o 




BY IAN 


ADAM 








SYS 49152 TO ENABLE THE 




o 




MOVING 


MESSAGE DISPLAY. 






00A2 


CLOCK 


EQU $A2 




o 


031-4 


IRQPTR 


EQU $0314 






0328 


SCRN 


EQU $0328 






D012 


VICRST 


EQU $D012 




o 


D016 


VICCTL 


EQU $D016 




D019 


VICIRQ 


EQU $D019 






D01A 


VICIMR 


EQU $D01A 






D021 


VICBGC 


EQU $D021 




o 


DC0D 


CIAICR 


EQU $DC0D 






D728 


SCOL 


EQU $D728 






EA31 


OLDIRQ 


EQU $EA31 




o 


FEBC 


CLNUP 


EQU $FEBC 




C000 




ORG $C000 ; 


ROUTINE RESIDES IN UPPER RAM 




C000 78 


SETUP 


SEI ; 


BLOCK OUT INTERRUPTS 


o 


C001 A9 7F 




LDA #$7F 






C003 8D 0D DC 




STA CIAICR ; 


TURN OFF HARDWARE TIMER 




C006 A9 01 




LDA #$01 




o 


C008 8D 1A D0 




STA VICIMR ; 


ENABLE RASTER INTERRUPTS 




C00B A9 17 




LDA MOVER 






C00D 8D 14 03 




STA IRQPTR ; 


RESET IRQ POINTER TO START 


o 


C010 A9 C0 




LDA /MOVER ; 


OF NEW PROGRAM 




C012 8D 15 03 




STA IRQPTR+1 






C015 58 




CLI ; 


RE-ENABLE INTERRUPTS 




C016 60 




RTS ; 


RETURN TO BASIC 


o 


C017 AD 19 D0 


MOVER 


LDA VICIRQ ; 


ACK INTERRUPT TO 




C01A 8D 19 D0 




STA VICIRQ ; 


VIDEO CHIP 




C01D A2 00 


PNTER 


LDX #$00 ; 


POINTER TO BYTE +1 


o 


C01F BD 72 C0 




LDA COLOR, X ; 


GET BACKGROUND COLOR 




C022 8D 21 D0 




STA VICBGC ; 


AND STORE IT 




C025 BD 74 C0 




LDA C0NFG,X ; 


GET SCREEN CONFIG. 


o 


C028 8D 16 D0 




STA VICCTL ; 


AND STORE IT 


C02B BD 76 C0 




LDA RASTR,X ; 


GET NEXT RASTER VALUE 




C02E 8D 12 D0 




STA VICRST ; 


AND STORE IT 




C031 8A 




TXA ; 


LOOK AT POINTER 


o 


C032 49 01 




EOR #$01 ; 


FLIP IT OVER 




C034 8D IE C0 




STA PNTER+1 ; 


AND STORE FOR NEXT TIME 




C037 F0 03 




BEQ SLIDE 




o 


C039 4C BC FE 




JMP CLNUP ; 


IF MESSAGE NO ON, GET OUT. 



IF THE MESSAGE IS NOT BEING SCANNED, 
RELOCATE IT SO THAT THE DISPLAY IS 
NOT JERKY. 



C03C A5 A2 
C03E 29 07 
C040 49 07 
C042 8D 74 
C045 C9 07 
C047 D0 26 

C049 AE 78 
C04C E8 
C04D EC 79 
C050 D0 02 
C052 A2 00 
C054 8E 78 
C057 A0 D8 



SLIDE 



C0 



C0 SCROLL 



C0 



C0 CONTIN 



LDA CLOCK 
AND #$07 
EOR #$07 
STA CONFG 
CMP #$07 
BNE EXIT 

LDX POSITN 

INX 

CPX LENGTH 

BNE CONTIN 

LDX #$00 

STX POSITN 

LDY #$D8 



o 



o 



SET SYSTEM CLOCK BYTE 

CONVERT INTO DECREASING SCAL 

FOR A SMOOTH SCROLL 

SAVE FOR NEXT TIME 

IF 7, THEN SCROLL MESSAGE LE q 

IF NOT 7, BYPASS THESCROLL 



WHERE IN THE MESSAGE? 

MOVE OVER ONE SPACE 

ARE WE AT THE END ? 

NO, SO CONTINUE 

YES, SO START OVER 

SAVE FOR NEXT TIME 

Y REGISTER IS SCREEN INDEX 



o 
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o 



o 



C059 BD 7A C0 
C05C 99 28 03 
C05F A9 0F 
C061 99 28 D7 



GETCHR 



LDA MESAG,X 
STA SCRN,Y 
LDA #$0F 
STA SCOL,Y 



GET A LETTER OF MESSAGE 
AND DISPLAY IT ON SCREEN 

POKE COLOR OF TEXT 



SCRN AND SCOL ARE OFFSET VALUES FOR 
START OF SCREEN DISPLAY AND COLOR 
MEMORY. THEY ARE CHANGE BY THE BASIC 
LOADER IF NECESSARY. 



C064 E8 




INX 




C065 EC 79 C0 




CPX LENGTH 


; END OF MESSAGE ? 


C068 D0 02 




BNE NEXT 


; NO 


C06A A2 00 




LDX #$00 


; YES, CONTINUE FROM START 


C06C C8 


NEXT 


INY 


; NEXT SCREEN POSITION 


C06D D0 EA 




BNE GETCHR 


; MORE TO DO? 


C06F 4C 31 EA 


EXIT 


JMP OLDIRQ 


; OVER AND OUT 



FINISH CHORES BY JUMPING BACK TO 
THE STANDARD 64 IRQ ROUTINE 



C072 00 00 


COLOR 


DBY 


C074 00 00 


CONFG 


DBY 


C076 00 00 


RASTR 


DBY 


C078 00 


POSITN 


BYT 


C079 00 


LENGTH 


BYT 


C07A 00 


MESAG 


BYT 


C07B 




END 



START OF MESSAGE AREA 



One Final Message 

Try this program in your machine - I'm 
sure you'll find it useful and it gives a 
few more ways to put your powerful 
home computer to practical use. I'll 
award a prize for the most imaginative 
application I hear of. Meanwhile, may 
the power be with you! 

Biography 

Ian Adam is a Transportation Engineer 
with the City of Vancouver, British 
Columbia. Home to mountains, killer 
whales, and lots of rain, British 
Columbia is known locally as 'Lotus 
Land'. After dealing with the routines 
of traffic and transit through the city all 
day, Ian finds routing information 
around the inside of a computer an 
ideal way to relax. While also program- 
ming on the VIC 20, Apple II and IBM 
PC, his preference is for the 
Commodore 64. Unfortunately, he 
must share this with his wife Linda and 
his two sons Paul and Doug. 



What's Where in the Apple? 

The Complete Memory Map and Guide to the Apple II 
** Apple II * Apple II Plus * Apple lie 



** 



Every Apple user needs this book, for it provides the 
most detailed description available of Apple II 
firmware and hardware. 

The names and locations of various Monitor, DOS, 
Integer BASIC, and Applesoft routines are listed, and 
information is provided on their use. 



The 100 plus page "Memory Map" provides a 
numerical Atlas and an alphabetical Gazetteer that 
guides you to over 2,500 memory locations of 
PEEKs, POKEs, and CALLs. 

The easy-to-read format includes: 



The address in hexadecimal (useful for assembly programming) $FC58 

The address in signed decimal (useful for BASIC programming) (-936) 

The common name of the address or routine [HOME] 

Information on the use and type of routine \SE\ 

A description of the routine CLEAR SCROLL WINDOW TO BLANKS. 

SET CURSOR TO TOP LEFT CORNER 
Related register information (A- Y-REGS ALTERED) 



The 150 plus page "GUIDE" portion of the book shows 
you how to use the information in the memory maps. 
Applesoft and Integer BASIC users will find 
information which will speed up and streamline 
programs. Assembly language users will gain access 
to routines which will simplify coding and interfacing. 
Both BASIC and assembly language users will find 
this book helpful in understanding the Apple II, and 
essential for mastering it! 



Over 250 pages of information in an 8 x 11 format. 
Over 35,000 copies already sold at $24.95. 
Revised, third edition now just $19.95 at your dealer, 
bookstore, or directly from: 

MICRO, P.O. Box 6502, Chelmsford, MA 01824 
617/256-3649 
[We accept VISA and MasterCard] 
and we pay all shipping and handling! 

Mass. Residents add 5% sales tax. 
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Dear Harvey, 

In response to your letter in MICRO, June 1984, I 
offer the following. 

First, with the exception of addition of a second 
time series and third label, the Quickplot(tm) routine 
which is part of Quicktrieve supplied by Commodity 
Systems Inc., 200 W. Palmetto Park Road, Boca Raton, 
FL 33432 (305/392-8663), does what you want with 
either daily commodity futures or stock or stock options 
data which they sell. Unfortunately, the program is 
supplied only in compiled form and is intimately tied to 
acquisition through their system on a regular basis. 

I expect to eventually write my own program of that 
nature, if the demand develops. In the meantime, I do 
my plots on an MX-100 with substantially higher 
resolution than Apple Hi-Res graphics. A sample is 
enclosed. I have several years of use of Apple in 
commodity trading, If this interests you, or any MICRO 
reader, feel free to write. 

fere Murray 

Seldovia Paint Software 

Box 237 

Seldovia, AK 99663 

Portion of Sample Commodity Chart 
(The whole chart is 15 by 25) 
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Dear Mr. Tripp: 

I'm delighted to find the lead article on the Dvorak 
keyboard in your July 1984 issue. There is, indeed, a 
growing awareness of the inherent awkwardness of the 
QWERTY keyboard arrangement. 

After 20 years of QWERTY in my daily work, I 
switched to Dvorak in 1965, cold turkey. I was never 
sorry, not even one day, though for the first six weeks or 
so my usual 80 wpm began again from 15 to 20 wpm 
and slowly became 35, then 60, and a year later 100 
plus. I cannot imagine going back, although my two 
daughters, trained from high school on Dvorak, had to 
switch to QWERTY in order to obtain employment in 
their chosen line of work. Those were pre- 
microcomputer years. Now, there's no problem getting 
the new ANSI Standard Keyboard (ASK, which is Dvorak 
with the numeral row left in the old ascending 
arrangement) on virtually any computer. The article 
neglected to mention the 1983 action of the American 
National Standards Institute in adopting Dvorak's ASK 
variant officially. Many persons might take Dvorak more 
seriously once they realize that it has official blessing. 

It is not even mentioned by Radio shack, more's the 
pity!, that SCRIPSIT has the ASK keyboard arrangement 
resident. For those who use SCRIPSIT 2.0, a simple 
patch on a working master is all that's required to 
convert their keyboard (from TRSDOS Ready, PATCH 
SCRIPSIT ADDFA FD7 CD8). Thus, Radio Shack is 
among the very first computer manufacturers, along 
with IBM and Apple, to recognize the value of the new 
keyboard, in spite of their apparent modesty. Apple He 
has a hardware switch for using either keyboard at will. 

The DSK is everything it's touted to be, and more. 
There are a growing number of converts to ASK. But 
since DSK and ASK are in the public domain, why try to 
persuade anyone that there's an advantage in switching 
away from QWERTY, since there's no money to be 
made? It's a rare person who believes that a gift can 
come sans strings attached. I can use QWERTY at 35 
wpm, DSK and ASK as 100. It is not easy to learn to use 
more than one of them, since there is a tendency to 
overlap, just as a foreign language user slips an 
occasional native word into his conversation. But it does 
give me a basis for objective evaluation of all three: I 
pronounce Dvorak superlative in all respects. ASK is a 
beautiful compromise. 

Sincerely, 

Waldo T. Boyd 
P.O. Box 86 
Geyserville, CA 95441 
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tHtenfyice di*uc 



by Ralph Tenny 
Richardson, Texas 



A Mystery ! 



At first glance, the Commodore 64 seems to be ideally 
suited for timing and counting measurements. That is, it 
has two Time of Day clocks and two independent counters 
for our use, and all of them produce interrupts. However, I 
developed a number of frustrations while trying to use 
these features to calibrate a Voltage-to-Frequency 
Converter (VFC|. Let's get some background on VDCs and 
their calibration; then I'll explain my frustrations. If any 
one of you can solve the problems more neatly than I did, 
the podium is yours! Just write me c/o MICRO and tell me 
your solution. 

Figure 1 shows the circuit of the VFC as implemented 
on the User Port adapter reported several columns back 
[MICRO 70:54, March 1984). (For those who haven't seen 
that report, skip forward to the section on the User Port 
Adapter.) Ul is the VFC, which requires + and - 5V power 
supplies. U2 is a low-power inverter which runs from + 5V 
and produces about -4.5 V. Only a few connections are 
made to the User Port for this circuit: + 5V, Common, 
PB7 and CNT2. Depending on the operating mode, you 
will count pulses or the time between two pulses, depen- 
ding on the calibration mode. 



VFCs Explained! 

Most modern VFCs work on a charge balancing principle 
which minimizes error producing influences. Charge 
balancing is done by charging a capacitor from an external 
source for a while, then quickly discharging it from an in- 
ternal calibrated source. The internal discharge rate is con- 
stant, and the external charging rate is proportional to the 
external voltage. (The length of time for external charging 
is set by the external voltage.] With a large external 
voltage, the capacitor is charged rapidly, so the switch- 
over to discharge comes quickly. The switch signal (see 
Figure 2a) is brought out for our use, and its frequency is 
directly proportional to the external voltage. The Teledyne 
9400 VFC used in this experiment also furnishes a square 
wave at half the output frequency (Figure 2b). We will use 
both in the experiment to be discussed. 

A number of very good VFCs are available at quite low 
prices. Typical specifications are: 0.01% linearity to 10 
KHz and 0.0025% gain stability with temperature. At full 
scale (10 V input = 10 KHz), the measurement resolution 
is better than 13 bits! A 13-bit A/D converter is several 
times more expensive, depending on how fast the conver- 
sion is. Even at 1 V input (1 KHz), the resolution is almost 
10 bits. The tradeoff is that full-resolution measurements 
require one second to complete. Also, the measurements 




Figure 1 
VFC Analog/Digital Converter Circuit 



Parts List for VFC 

Rl - 100 Kohm, Carbon Film. 5'/., 1/4 watt 
R2 - 1 Megohm, Metal Film, IX, 1/4 watt 
R3 - 10 Kohm, Carbon Film, 5'/., 1/4 watt 
R4, R5 - B.2 Kohm, Carbon Film, 5"/, 1/4 watt 
R6 - 510 Kohn, Metal Film, V/., 1/4 watt 
R7 - 50 Kohm, Cermet, single turn, 1/8 or 1/4 watt 
CI - 230 pF, mica or NF'O ceramic capacitor 
C2 - 1000 pF, mica or NFO ceramic capacitor 
C3 - 10 uF Tantalum Dipped electrolytic capacitor 
C4 - 100 uF Aluminum electrolytic capacitor 
Ul - Teledyne 9400 VFC 
U2 - Intersil ICL76&0 DC Converter 
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need two bytes of memory for storage of each test result. If 
you don't need high resolution, use one-tenth second 
measurement periods to save time and memory space. 



Figure 2 Output Waveforms from the VFC 



Calibration Woes 

Two calibration points are needed on this particular VFC. 
First, I need to set the frequency output for 10 KHz with 10 
V input, and then minimize the zero offset. Zero offset 
affects the accuracy at very low input voltage, so the 
frequency is adjusted to 20 Hz at 20 mV input. This 
calibration must use a period measurement to get ade- 
quate resolution. 

My first frustration came when trying to calibrate the 
full-scale response of this VFC. I have been using 
HESMON64 for all of my hardware and interfacing ex- 
periments, with mostly good results. The first idea I had 
for full-scale calibration was to operate the TOD clock on 
U2 (NMI interrupt) with one second interrupts. None of 
the several reference books I have mentions how to set the 
TOD interrupts, except in a general way. Setting the TOD 
clock is supposed to be done beginning with the 
Hours/AM-PM register and finishing with the Tenth 
Second register. The clock starts running when the Tenth 
Second register is loaded, so that the starting time can be 
precisely controlled. Setting the Alarm is supposed to be 
the same, except that BIT7 of each register is supposed to 
be set also. 

The bit map of the TOD registers looks like this: 

ADDR REG BIT7 BIT6 BIT5 BIT4 BIT3 BIT2 BIT1 BIT0 



DD08 SEC/ 10 

DD09 SEC 

DD0A MIN 

DD0B HRS PM 



18 K T2 Tl 

SH4 SH2 SHI SL8 SU SL2 SL1 

MH4 MH2 MH1 MLS ML4 ML2 ML1 

HH1 HL8 HL4 HL2 HL1 



Note that the registers are arranged in ascending order, 
with time kept in BCD. The first hurdle is that HESMON 
reads and writes eight bytes in its memory modifying 
mode, reading from low to high. So, if you manage to get 
the clock running with HESMON, reading the time reads 
the Hours register last, stopping the clock. Similarly, 
writing via memory modification writes the Tenth Second 
register first instead of last, failing to start the clock. The 
clock can be started using this brief program: 



A2 03 




LDX #$03 


MOVE FOUR NUMBERS 


BD 0C C0 


GET 


LDA BUFR,X 


GET DATA 


9D 08 DD 




STA $DD08,X 


AND WRITE IT 


CA 




DEX 


IN REVERSE ORDER 


10 F7 




BPL GET 


LOOP 


00 




BRK 


HESMON STOP 


0A 0F IE 


BUFR 


BYT HRS, MIN, SEC, STEN 




; SAMPLE 


SETTINGS 






HRS 


EQU 10 






MIN 


EQU 15 






SEC 


EQU 30 






STEN 


EQU 06 





The clock starts easily with that program segment. Using 
several similar segments to set the ALARM function 
apparently failed each time. At least, I couldn't find an in- 
terrupt service routine which demonstrated interrupt 
operation! 

My intent had been to use one-second interrupts from 
the TOD clock to calibrate the VFC. In this operation, the 
VFC pulse output is connected to CNT2 so that Timer B 
accumulates pulses from the VFC. Eventually, I devised 
this program to generate one second interrupts for that 
purpose: 



CE 00 20 


DEC $2000 


REP COUNTER 


10 09 


BPL KI 


RESET INTERRUPT 


A9 00 


LDA #00 


STOP TIMERS 


8D 0F DD 


STA $DD0F 


TIMER B 


8D 0E DD 


STA $DD0E 


TIMER A 


00 


BRK 


RETURN TO HESMON 


AD 0D DD 


KI LDA $DD0D 


RESET INTERRUPT 


40 


RTI 


END INTERRUPT SERVICE 


A9 D5 


LDA #$D5 


SET TIMER A 


8D 04 DD 


STA $DD04 


FOR 0.1 SECONDS 


A9 27 


LDA #$27 




8D 05 DD 


STA $DD05 




A9 09 


LDA #$09 


NEED 10 TIMER 


8D 00 20 


STA $2000 




A9 FF 


LDA #$FF 


FULL COUNT IN TIMER B 


8D 06 DD 


STA $DD06 




8D 07 DD 


STA $DD07 




A9 01 


LDA #$01 


SET NMI* VECTOR 


8D 18 03 


STA $0318 




A9 20 


LDA #$20 




8D 19 03 


STA $0319 




A9 81 


LDA #$81 


ENABLE TIMER A 


8D 0D DD 


STA $DD0D 


INTERRUPT 


A9 09 


LDA #$09 


START TIMER B 


8D 0F DD 


STA $DD0F 


IN ONE-SHOT MODE 


A9 01 


LDA #$01 


START TIMER A 


8D 0E DD 


STA $DD0E 


IN FREE-RUN MODE 


4C 42 C0 


LP JMP LP 


TIGHT LOOPS 1 
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When you RUN this program it should come back with the 
HESMON prompt almost immediately. Examine memory 
at $DD06-DD07 (count in Timer B registers]. The record- 
ed count with +5V input will probably be about $1388. 
There are two ways to calibrate this circuit. The first is to 
input a precise voltage (such as 10. 0V) and adjust the value 
of Rl so the count is exactly $2710 (10,000 decimal). The 
second is to put in a known voltage near full scale and 
record the count. From these values you can then compute 
a counts/volt and compute other voltages using this value. 
Here's an example: 

9.3V input yields $244A or 9290 decimal. 
9290/9.3 = 998.9 counts/volt. 

If you get a count of 6320 decimal, the voltage is 
6320/998.9 or 6.39V. The computations above were 
rounded off somewhat. It is unrealistic to keep all the 
digits your calculator gives you!. If you can calibrate this 
circuit to 0.5%, three digit resolution can exceed the 
accuracy available to you, depending on the input voltage. 
Most analog devices have zero offset, and VFCs are no 
exception. The zero offset calibration experiment was a 
really major frustration. The calibration should be done 
with 20 mV input (output 20 Hz). By measuring the period 
of the VFC output with a timer counting the processor 
clock, significant resolution is possible. My original plan 
was to drive the FLAG input with the VFC output. FLAG 
is an edge-sensitive input, which means that once the line 
has been driven low it must go high before another inter- 
rupt can be generated. Also, the first interrupt must be 
cleared before another interrupt will be issued. (Clearing 
any interrupt of the 6526 CIA is accomplished by reading 
the Interrupt Control Register.) To make a bitter story 
short, there apparently was severe interaction between any 
program using FLAG and the HESMON cartridge. The pro- 
gram below reads the half-period of the F/2 output, it 
waits until F/2 goes high, then low, and starts the counter. 
When F/2 goes high again, the counter is stopped. Con- 
nect the F/2 output to BIT6 of the User Port. Enter this 
program and run it repeatedly with a .02 V input to the 
VFC. Check the Timer B count after each run and adjust 
R7 until you get 51020 counts ($C74C). Note: since the 
timer starts at $FFFF and counts down, $FFFF - $C74C = 
38B3. That is, the counter will show $38B3 when the 
adjustment is correct. 
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SEI 


DISABLE IRQ* 


A2 0F 




LDX #$0F 


COUNTER START 


A0 00 




LDY #$00 


COUNTER STOP 


A9 FF 




LDA #$FF 


SET COUNTER B FOR 


8D 06 DD 




STA $DD06 


MAXIMUM COUNT 


8D 07 DD 




STA $DD07 




2C 01 DD 


INI 


BIT $DD01 


TEST FOR F/2 LOW 


50 FB 




BVC INI 


LOOP IF LOW 


2C 01 DD 


IN2 


BIT $DD01 


TEST FOR HIGH 


70 FB 




BVS IN2 


LOOP WHILE HIGH 


8E 0F DD 




STX $DD0F 


START COUNTER 


2C 01 DD 


IN3 


BIT $DD01 


TEST FOR LOW 


50 FB 




BVC IN3 


WAIT FOR LOW TO STOP 


8C 0F DD 




STY $DD0F 


THEN TURN OFF COUNTER 


00 




BRK 


BACK TO HESM0NS1 
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It was particularly irritating to have to resort to software 
loops as the only available way to make this calibration 
measurement! Remember: If you can make Commodore 



user interrupts work well with HESMON or another 
debugger, tell us how! 

You should be aware of some constraints on using this 
type of program for calibration against the processor clock. 
I tested that program with 5 V input to the VFC (about 5 
KHz output). Without the SEI instruction, internal inter- 
rupts would scramble about one sample in four. Even with 
the SEI, one in seven samples were stretched; I have no ex- 
planation. At the real calibration point, (20 Hz output), 
the signal was somewhat variable. Pulse jitter due to noise 
pickup was visible on an oscilloscope, but not to the 
extent shown in the data. The final calibration was done 
using an average of ten samples. The observed jitter in the 
data was ± 2%. 
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User Port Adapter 

Anytime you interface to a computer, it is much easier if 
you have a special work area for your experiments. The 
User Port is on the left rear of the Commodore 64, with a 
place to plug on an edge-card connector. I developed a 
simple adapter which extends the User Port around near 
the front of the computer. Figure 3 shows the circuitry 
between the User Port and the extender cable. This adapter 
is simply a short piece of experimenter perf-board with a 
dual-readout 12 position connector soldered to it. The con- 
nector fits the User Port, and a 24 pin IC socket is 
mounted on the perf-board. A flat cable with 24 pin 
headers on each end carries the User Port connections to 
the front of the C-64. This end of the flat cable plugs into 
any of several breadboards and permanent boards which 
are experimental circuits or permanent interfaces. 

Future Projects 

For those who might be following the design discussion of 
networking my three computers, I'm still planning to 
report on the bus loading of the interface detailed in the 
previous column, and discuss a full eight-bit wide I/O port 
to replace the four-bit ports shown last month. The inter- 
face project has been temporarily slowed to meet other 
deadlines, and to order some interface breadboard cards to 
build the interface on. When the interface project gets 
under way again (probably by next column], at least two 
such breadboard cards will be discussed and the parts 
layout shown. In addition, the support software will be 
outlined. 



Updates & Microbes 

BASIC Hex Loader, Micro #73, page 65: 

Line 9 in listing 2 had a '-' inserted by the typesetter. It 

should read: 

9 MS>ME THEN PRINT "XX"; :I=6: J=ll 

The Hex Loader was written to work with any 
Microsoft-like BASIC. Since the Atari's BASIC is 
significantly different, particularly in the area of string 
manipulation, a special version is required. Here is the 
Hex Loader modified for the Atari. 

10 DIM X$(4),HX$(50) 

11 READ X$:Z=LEN(X$):GOSUB 17:MS=X:Z=2 

12 READ HX$:J=1 

13 X$=HX$(J,J+1) 

14 IF X$=XX THEN END 

15 IF X$=YY THEN GOTO 12 

16 GOSUB 17: POKE MS,X:MS=MS+1: J=J+2:G0T0 13 

17 X=0:FOR 1=1 TO Z:Y=ASC(X$(I,I)) : 
IF Y> 57 THEN Y=Y-7 

18 Y=Y-48:X=X*16+Y:NEXT I: RETURN 

Sample DATA Statements 

100 DATA 600 Starting Address 

101 DATA A57A8D70YY Hex Data 



Surplus Electronic Stock on Sale 



Since we have gone out of the manufacturing business, 
we have a limited amount of surplus stock for sale. 
Check these items: 

Keytronic Keyboards: w/Numeric Pad — $75 
[Superior keyboard, listed at $200] 

Video Plus I: for aim/sym/kim $75 

[Originally $295] 

Video PIUS II: Improved Version $125 

[Hundreds sold for $375] 

ProtO Plus: WireWrap or Solder $25 

[8 x 10 ", top quality, were $751 

Memory Plus: 8K ram, up to 8K eprom $50 

[Add memory for your projects, were $2451 
Dram Plus: 16K RAM expandable to 128K . . . $200 
[Includes EPROM programmer, 2 VIA's, and much morel 

[Recently sold for $325] 

FOCUS: 6809 Development System . $2000 

[Dual Density/Double Sided Disks, RS-232, IEEE-488 bus, 

FLEX Operating System. Originally $3995] 

Miscellaneous Parts: Send SASE for complete list. 



Diskettes: Ten (10) used — but still useful $10 

[Specify 5% or 8". Some single density, most double] 
[Sold in batches of ten only — definitely 'As Is'] 

Printers: A variety of printers from $50 

[from an old BASE 2 to 

a high-quality Daisy wheel terminal. 

Send for specifications and make us an offer!] 



While all boards and parts are sold "As Is", they come 
from our "Ready-to-Ship" stock and should be in 
excellent condition. Boards come with complete 
documentation. 

Money Back Guarantee: Return any product 

within two weeks and receive a full refund. 

The Computerist, Inc. 

P.O. Box 6502 
Chelmsford, MA 01824 

617/256-3649 
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8" by 10" Prototyping and Custom Circuit Board 



Proto 
Plus 



Professional Quality 
Double-Sided with Gold Plated Edge Connectors 
Address and Data Buffering 
Address Decoding Circuitry 
Patterns for Special Devices 
Large 8 by 10 inch Work Area 
Patterns for Soldering or Wire-Wrap 




Special Etch Patterns for: 
Voltage Regulators 
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DIP Pattern Area for: 
||^ Wire-Wrapping or Soldering 
.Hjjjjli DIP sizes from 8-pin to 40-pin 
5 Volt and Ground Busses 
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Control Signal Buffers 
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Hundreds of these Proto Plus boards were sold for $50 to $75 dollars. Since we are 
no longer actively in the PC board market, we are offering the remaining stock at a 
great discount. 

Now Only $25.00 While Supplies Last. 
The Ideal Board for the Interface Clinic and other MICRO Projects. 



We have a limited supply of other boards — Video Plus, Dram Plus, Memory Plus, Flexi Plus, 
Keytronic keyboards and other "good stuff". No reasonable offer refused. For a complete list, send a 
self-addressed, stamped business-size envelope to: Surplus List 

The Computerist, Inc. 
P.O. Box 6502 
Chelmsford, MA 01824 



Quick Cipher Routine 

Protecting Your information 



by Art Matheny 
Lutz, Florida 



Summary 

In less than three seconds this 6502 
machine language subroutine can 
encode 24 kilobytes into a cipher that is 
difficult to crack. The same routine 
decodes the data just as quickly. 

Before storing a program or data on a 
public mass storage device or trans- 
mitting it over a public communi- 
cations channel, it may be wise to 
encipher it. This short 6502 machine 
language subroutine quickly encodes a 
specified range of memory. The same 
subroutine decodes the data to recover 
the original memory contents. The 
routine takes less than three seconds 
(with a 1 MHz clock) to encode or 
decode 24 kilobytes. This is short 
compared to the time it usually takes 
to store or transmit the same amount of 
data. 

The contents of the memory range 
could be a BASIC program, machine 
code, data tables, or a combination of 
all of these, it does not matter since 
every byte in the specified range under- 
goes transformation. Cryptographers 
call the original memory contents the 
plaintext, and they call the transformed 
data the ciphertext. The goal is to 
design a code such that if any code- 
breaker gets hold of the ciphertext, he 
would have a hard time recovering the 
plaintext. 

The simplest scheme I have seen 
used for encryption of computer 
memory is as follows: One picks any 
number between 1 and 255 to use as a 
key. The ciphertext is produced by 
performing an exclusive-or (EOR) of 
this byte with every byte of the 
plaintext. To recover the plaintext, 
EOR the same key with every byte of 
the ciphertext. The trick is that two 
EOR instructions with the same byte 

No. 76 ■ October 1984 



How You Can Keep Your Information Private — 
Even While Using Public Communications 
Channels and Databases 
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CIPHER 


o 




****** 




QUICK CIPHER ROUTINE 






BY ART MATHENY 


o 




TAMPA, FL 






ENCODES OR DECODES 






A RANGE OF MEMORY 


o 




THE FOLLOWING 2-BYTE POINTER 


o 




CAN BE LOCATED AT ANY 




CONVENIENT ZERO-PAGE ADDRESS 


© 




00FB 


PTR EQU $FB ;Z-PAGE POINTER 


o 


CHOOSE CONVENIENT ORIGIN. 




THE FOLLOWING IS THE START OF 






THE CASSETTE BUFFER FOR 






COMMODORE 64 OR VIC-20. 


o 


033C 


ORG $33C 


o 

© 


JUMP TABLE 




033C 4C 4A 03 


JMP CIPHER 




033F 4C 70 03 


JMP RND 


© 
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has no net effect. This simple code 




© 


. 


ARGUMENTS 


disguises the data alright, but it is 
nothing more than a simple substi- 






0342 12 


SEED BYT $12 ;POKE ANY 4-BYTE 


tution code, which can be cracked by 




0343 34 


BYT $34 ;SEED HERE. 


age-old methods. The code-breaker can 


© 


0344 56 


BYT $56 ;USE SAME SEED AT 


determine the substitution table 


0345 78 


BYT $78 ; DECODING TIME 


without ever having figured out that 




0346 00 08 


FIRST BYT 0,8 ; STARTING ADDR 


the EOR instruction was used. 




0348 FF 67 


LAST BYT $FF,$67 ; FINAL ADDR 


My scheme also uses the EOR 


© 

© 






instruction, but first a fast random 
number routine generates values to 
EOR with the data. The key in this case 
is a four-byte SEED value, which deter- 


CIPHER 








COPY STARTING ADDR TO Z-PAGE 


mines the pseudo-random sequence. 
Decoding is accomplished by calling 


© 


034A AD 46 03 


CIPHER LDA FIRST 


the same routine with the SEED bytes 




034D 85 FB 


STA PTR 


reset to the key values. At the start of 




034F AD 47 03 


LDA FIRST+1 


encoding, any four bytes can be poked 


© 


0352 85 FC 


STA PTR+1 


into the SEED locations. Because these 






bytes are modified by the program, they 






EOR MEMORY BYTE WITH RANDOM BYTE 


must be reset to the same key values at 


© 


0354 A0 00 
0356 20 70 03 


LDY n 
CIPl JSR RND 


the start of decoding. The FIRST and 
LAST addresses of the memory range 




0359 51 FB 


EOR (PTR),Y 


must also be set. All of these arguments 




03 5B 91 FB 


STA (PTR),Y 


are located immediately following the 


© 






jump table at the start of the program. 






INCREMENT MEMORY POINTER 


You do not have to use the partic- 
ular random number generator given 


© 


03 5D E6 FB 


INC PTR 


here. Any routine that generates one- 


035F D0 02 


BNE CIP2 


byte values will work. The one 




0361 E6 FC 


INC PTR+1 


included here was originally published 


© 




LAST BYTE YET 


in MICRO #51 (August 1982). In this 






application, its main virtues are that it 




0363 AD 48 03 


CIP2 LDA LAST 


is fast |about 69 cycles) compared to 




0366 C5 FB 


CMP PTR 


more sophisticated routines and that it 


© 


0368 AD 49 03 


LDA LAST+1 


generates an extremely long non- 




036B E5 FC 


SBC PTR+1 


repeating sequence. You may even 




036D B0 E7 


BCS CIPl 


choose to invent your own personal 


© 


036F 60 


RTS 


number generator. It does not have to 
be perfectly random, rather use some 
scheme that is so unlikely that the 








; RANDOM NUMBER GENERATOR 


code-breaker would fail to guess it. 


© 




RETURNS RANDOM BYTE IN THE .A REGISTER 


Since many numbers need to be gener- 
ated, speed is important. The main 






0370 18 


RND CLC 


point is that the number sequence 


© 


0371 A2 03 


LDX #3 


must be deterministic, while not 




0373 BD 42 03 


LDA SEED.X 


appearing so. The sequence should be 




0376 CA 


DEX 


determined by some a seed value, 


© 


0377 7D 42 03 


RND1 ADC SEED,X 


which functions as the key of the code. 




037A 9D 42 03 


STA SEED.X 


The random number generator must 




037D CA 


DEX 


return a random byte in the .A register. 


© 


037E 10 F7 


BPL RND1 


All that is required to use the 


0380 A2 03 


LDX #3 


routine, once you have it loaded is to 




0382 FE 42 03 


RND2 INC SEED,X 


set the seed bytes and the starting and 




0385 D0 03 


BNE RND3 


ending address of the information to be 





0387 CA 

0388 10 F8 
038A 60 


DEX 

BPL RND2 


encoded. The addresses are stored in 




RND3 RTS 


normal low/high byte order (at $0346 




038B 


END 


and $0348 in this version). Then, make 


© 






a subroutine call to CIPHER through its 
jump table vector (JSR $33C) from an 








Art Matheny was a 


physics teacher before he took up full-time program- 


assembly program or a SYS call from 


© 


ming. He is now 


employed at the University of South Florida as 


BASIC (SYS 828). Your encoded/decod- 




assistant in scientif 


c computing for the College of Natural Sciences. At 


ed information will replace your 




home he programs 


an his Apple II, Commodore 64 and VIC-20. 


original information. 
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FEATURES OF THE NETWORKER 



© 
© 

© 

© 
© 

© 

Ml 



DIRECT CONNECT - No acoustic coupling needed 
Two nodular telephone acks - one for phone - one 
tor -me 
SINGLE CHIP MODEM tor greater rei.ab.Nty 

ON 30APO FIRMWARE contains a term nai pro- 
gran' 

Oi\ BOARO SERIAL INTERFACE - no extra cards tc 
t)Ly Software selectable data forma! 7 or 8 data 
aits one ar two stop bits add or even parity ful 1 01 
halt duplex 

300 BAUD software selectable for MO oauo 

SWTCH CONTROL 'or answer orma-e i - s next - c 
Keyboard 

CARRIER DE T ECT LEO g'ves you ire s'atus at a 
giance 

THIS PLUS 

COMPLETE with NETWORKER SOFTWARE to give 

you 

■ Tex' trapping rjt entire display ntc RAM memory 

• Disk storage capacity for a- trapped tex' 

• On screen menu and srak.5 indicators 

FREE SUBSCRIPTION TO THE SOURCE the popu- 
lar dij' up information sys'err 

SOFTWARE COMPATIBILITY - «i:n all commor 

App ! e cammuO'Cation software 

COMPATIBLE m'h 50th 'Cta.-y and tone phones 

FCC APPROVED - Made m CSA 

ONE YEAR MANUFACTURER S WARRANTY 



NETWORKER " INCLUDES A 
COMPLETE PACKAGE 



1 Modular pho"fi ' nt; co r c 

■ Neiwoiker sofNvve c 1 a dis* rejay 'o 'in 



NETMASTER 
SOFTWARE 



COMMUNICATIONS 



For St 79 we nclurie with the NETWORKER the 
NETMASTER Communications Software for ad- 
vanced users NETMASTER will let you transfer 
games, computer g'achics programs sales 'e- 
pons. documents -■ m fact any Apple file of any size 
to another computer directly 'rom d'Sk to ctisK 
w.rhout errors even through noisy phone lines 



Complete Apple 
Modem $ 129 

Single-Slot 300 Baud Direct-Connect Modem for 
Apple II, II + , lie and Franklin computers 





© 



JOB ENTERPRISES INC 

P O. Box 269 

Ayer MA 01432 



For transfenng information between computers. 
NETMASTER s superb error checking and high 
speed are an unbeatable combination With a NET- 
MASTER on each end. you can transfer informa- 
tion three to five times faster than other commu- 
nications packages like Visiterm or ASCII 
Express Error free 

Your best buy in modem history The Networker." 
a plug-in single-sot direct connect modem for the 
Apple M family of computers Send electronic mail 
to a fnena or business associate, use your school s 
compute' access hundreds of computer bulletin 
boards or thousands of data bases for up-to-the- 
minute news sports, weather, airfme. and stock in- 
formation 



There s apsolutely nothing else to buy You get 
the modem board, communication software, and a 
valuable subscription to America. s premier infor- 
mation service THE SOURCE'' For St 29 its a" 
unbeatable value 

This is the modem that does it ail and does 't for 
less The Apple Communications Card is on board 
so no other interlace is needed Its 300 baud the 
most commonly used modem speed And d comes 
complete with NETWORKER Communications 
Software on an Apple-compatible disk giving you 
features no modem offers 

L ke the ability to lock on-screen messages into 
your Apple s RAM, and then move the information 
onto a disk for easy reference and review A ternv- 
nal program, that turns your computer into a com- 
munications command center with on-screen help 
menus, continuous updates of memory usage ear- 
ner presence, and communication status 

But NETMASTER s not stuffy It will talk to those 
other communications packages, but they dent 
work as last and they don't check errors like NET- 
MASTER. And NETMASTER doesn t only work 
with the NETWORKER modem Even if you 
already have another modem for your Apple. NET- 
MASTER is an outstanding value in communi- 
cations software, so we sell NETMASTER by itself 
for S79 NETMASTER reguires 48k of RAM. one 
disk drive and the NETWORKER or another 
modem 

WE EVEN GIVE YOU SOMEONE TO 
TALK TO! 

Your purchase of the NETWORKER with or without 
NETMASTER comes complete with a membership 
to THE SOURCE, with its normal registration fee 
fully waived THE SOURCE will put a wohd of elec 
tronic information and communication services a 
your fingertips - instantly Electronic mail and com 
puter conferencing Current news and spods Valu 
able business and financial information Travel se 
vices A wealth of information about personal 
computing Even games All fully compatible with 
your eouipment. and 'eady to use at once 



To Order 
Call Toll Free 

800-824-7888 Continental US 
800-824-7919 Alaska and Hawaii 

or anywhere in the world 

916-929-9091 

Ask for operator #592 



MAIL ORDERS 

PLEASE WRTE NUMBER OF ITEMS IN BOX 

H NETWORKER S129 ~ NETMASTER S79 

[2 NETWORKER NETMASTER COMBO $179 



CO D. 

COD ORDERS ADO S3 00 





S*'ic Orae'^ ana MnKe C"'eus P-iyaO't- :c 



NAME 

ADORESS 

CITY STATE ZIP 

Mass. residents add 5% sales tax 
Total Enclosed 

"~ MASTERCARD f" VISA ~ CHECK J C 
CARD NUMBER EXPIRES 

SIGNATURE 



JQB Enterprises Incorporated 

P.O. BOX 269 AYER MASSACHUSETTS 01432 

Ail Prices Quotea are for Prepaid Orders — Prices SuCied to Change Without Notice 



[Credit Card orders must be signed) 
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Coming in November — 

□ Building a High-Performance Low-Cost 
68000 Microcomputer System 

by Henning Spiuth 

Build this 68000 system that interfaces to 

your microcomputer to make use of the I/O 

capabilities you already own. This multi-part 

project includes the schematic and part lists, 

a 68000 resident monitor and a 68000 cross 

assembler. 

□ Solid Shape Drawing 

by Richard Rylandei 

Part 1 of a multi-part series that will expand 
your understanding of graphics as well as 
your microcomputer's graphic capabilities. It 
includes a set of programs and routines that 
assist in generating more complex shapes 
complete with realistic shading. 

□ Fast Plotting of Lines and Functions on the 
Commodore 64 

by Loien W. Wright 

Part 2 of this series provides routines to draw 
straight lines between points and other 
simple functions - using fast assembly 
language subroutines callable from BASIC. 

. . . and many other features for the Serious 
Computerist! 



MICRO Book Sale — Save 50% 

The following selected titles are being offered to MICRO readers for 
a limited time at half price. 



WAS 
$24.95 
$24.95 
$24.95 



NOW 
$12.45 
$12.45 
$12.45 
$29.95 



MICRO on the Apple Volume 1 

MICRO on the Apple Volume 2 

MICRO on the Apple Volume 3 

M ICR0 on the Apple Three Volume Set$59 .95 
Each volume contains over thirty (30) programs on diskette 
and a 200 plus page book explaining the programs. 

MICROontheOSI $19.95 $9.95 

Almost 200 pages of articles, programs and reference materials. 

Mastering Your VIC-20 $19.95 $9.95 

Eight BASIC projects on cassette to teach and entertain. 

Mastering Your Atari $19.95 $9.95 

Eight BASIC projects on diskette including music, sorting and games. 

Orders must be prepaid and received by November 15, 1984. 
MasterCard and Visa accepted. 




You must mention 
"MICRO Special" 
to receive this 
special price. 

Send your order 
to: 

MICRO 

P.O. Box 6502 

Chelmsford, MA 

01824 

Or phone: 
617/256-3649 

Mass. Residents add 5% sales tax. 
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MA 



MD-1 
Apple 



MD-2 
C64 



MD-4 
C64 



MD-5 
Apple 



MicroDisks 



Master Disk Directory 

Charles Hill Dec 1983/Feb 1984 

A utility that collects all of your disk directories 
onto a single disk which may be sorted and 
printed. Equivalent to some commercial 
packages that sell for over $100.00! 

DOES-IT Monitor 

Michael J. Keryan Jan — May 1984 

An integrated set of assembly language 
routines that expand the capabilities of your 
Commodore 64. Included are help screens for 
the DOS Wedge, a timer/alarm function, many 
useful functions that may be called directly 
from the keyboard via the RESTORE 
key — without disturbing the currently 
running program, a debugging monitor, 
procedures to 'hide' machine language and 
BASIC program under ROM, and much more. A 
must for all serious Commodore users. 
(NOTE: A complete package including some 
new features plus complete documentation is 
now available for $29.95. See the ad elsewhere 
in this issue) 

Graphic Printer Dump 

Michael J. Keryan July — Sept 1984 

A printer utility that interfaces with five of the 
main graphic packages to provide 
extraordinary printer output on a variety of 
printers. The prints are full size and may even 
be in color — with a regular printer! Get the 
most out of your graphic efforts. 

CMPRSS: Improved Compression Program 

Ian. ft Humphreys July 1984 

Compress your Applesoft code by: 

Concatenating statements; 

Removing text of REM statements; 

Removing LETs; 

Removing variable names from NEXT 
statements; and, 

Truncating variable names. 
CMPRSS allows you to freely comment your 
programs, without paying the penalty of 
running out of variable space. 



The Best Programs From MICRO 
Ready-to-Run 



MD-6 
Apple 

MD-7 
Atari 

MD-8 
C64 



Least Squares Curve Fitting and 
Time Series Forecasting 

Brian Flynn March 1984/September 1984 

Two sophisticated data analysis techniques 
are presented in easy-to-use programs. The 
Least Squares Curve Fitter accepts a series of 
data and calculates the t-statistic, F-statistic, 
standard error of the estimate and the Durbin- 
Watson statistic. The Time Series Forecasting 
program accepts periodic data (weekly, 
monthly, annually, ... ) and provides five 
different techniques for forecasting the future 
trends from the observed data. These two 
programs provide the basis for stock analysis, 
scientific data reduction and more. 

HILISTER 

J. Morris Prosser July/August 1984 

A machine language program that can list to 
the screen an Applesoft program, a block of 
disassembled memory, a disk catalog, a 
memory dump in hex and/or ASCII, or almost 
anything else. It then supports moving to the 
beginning or end of the information, 'paging' 
through one screenful-at-a-time, moving 
forward or backward one line-at-a time, and 
optionally highlighting any individual line by 
inverting it. 

MD-10 Fast Bit Map Plotting 

C64 Loren W. Wright Oct/November 1984 

A collection of assembly level subroutines to 
perform high-speed plotting of points, lines and 
other functions. These may be readily called 
from BASIC, or may be used as the basis for 
custom graphic packages. 
(This MicroDisk will be available in November) 



MD-9 
Apple 
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MICRO, P.O. Box 6502, Chelmsford, MA 01824 
617/256-3649 

Mass. Residents add 5% sales tax. 



Ordering instructions: 

To avoid errors, please order by Number, Name 
and Microcomputer. 

MicroDisks are $15.00 each, including shipping. 
MicroDisks are only $10.00 each to Micro 
Subscribers. You must include the subscription 
number from your MICRO label when ordering 
to qualify for this special price. 



Name 



Address 



MD No. Program Name 



Microcomputer 



City 

□ VISA 



State 



D MasterCard 



Zip 
□ Check 



Acct No. 



Expires 



ii 



Enter Subscriber Number from MICRO Label for Discount 
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MAINTAIN YOUR 1541 DISK DRIVE 






1541. 

WMmtMEMWM. 



Using the 1541 SINGLE DRIVE FLOPPY DISK 
MAINTENANCE MANUAL By Michael G. Peltier 
' (198 pages, 118 illus., $29.95) V * 
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1541 
Maintenance Guide ] 




ise the 1541 MAINTENANCE GUIDE By 

' Illus., ' 






leep your disk drive on track with the ARD-101 
(AlignmeaLReference Disk for 1541 disk drives. $15.95) 
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ARD-101 
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For dealer inquiries cont 



IComDUter 



For distributor and other inquiries contact: 



Jistnoutor ana other inquiries contact: PI phc 

PELTIER 
. . . INDUSTRI 



PI distr 



Cherry Hill, Nrw JersRy 08003 
(R001 222-0505 

PI phone [316)945-9266 



INCORPORATED / 735 N. Doris 



i3, KS 6 



